procyberian/emacs
1
0
Fork 0
Code Issues 1 Pull requests Projects 1 Releases Packages Wiki Activity Actions

Make finder-exit use quit-window (Bug#33610)

Browse source 
* 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.
This commit is contained in:
Stefan Kangas 2019-07-12 00:43:12 +02:00 committed by Eli Zaretskii
parent b6bef9f193
commit 070dd43909
1 changed files with 4 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/finder.el
View file

@ -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."