From 070dd439096c0f72d8f73823649e3c650f31c890 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Fri, 12 Jul 2019 00:43:12 +0200 Subject: [PATCH] Make finder-exit use quit-window (Bug#33610) * lisp/finder.el (finder-exit): Quit window instead of deleting. This restores previous contents of the window, if any, that was usurped by "C-h p" to show the list of packages. --- lisp/finder.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/finder.el b/lisp/finder.el index ad9441210c5..89706cf7dbd 100644 --- a/lisp/finder.el +++ b/lisp/finder.el @@ -465,11 +465,12 @@ finder directory, \\[finder-exit] = quit, \\[finder-summary] = help"))) (defun finder-exit () "Exit Finder mode. -Delete the window and kill all Finder-related buffers." +Quit the window and kill all Finder-related buffers." (interactive) - (ignore-errors (delete-window)) (let ((buf "*Finder*")) - (and (get-buffer buf) (kill-buffer buf)))) + (if (equal (current-buffer) buf) + (quit-window t) + (and (get-buffer buf) (kill-buffer buf))))) (defun finder-unload-function () "Unload the Finder library." -- 2.39.2