[Emacs-diffs] master 070dd43: Make finder-exit use quit-window (Bug#33610)

[Eli Zaretskii]

branch: master
commit 070dd439096c0f72d8f73823649e3c650f31c890
Author: Stefan Kangas <address@hidden>
Commit: Eli Zaretskii <address@hidden>

    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 ad94412..89706cf 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."