Commit 070dd439 authored by Stefan Kangas's avatar Stefan Kangas Committed by Eli Zaretskii

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.
parent b6bef9f1
Pipeline #2492 failed with stage
in 90 minutes and 1 second
......@@ -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."
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment