diff options
Diffstat (limited to 'lisp/finder.el')
| -rw-r--r-- | lisp/finder.el | 7 |
1 files 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." |