diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/finder.el | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/lisp/finder.el b/lisp/finder.el index 19929e080fb..6bb763f8e55 100644 --- a/lisp/finder.el +++ b/lisp/finder.el | |||
| @@ -297,16 +297,13 @@ arguments compiles from `load-path'." | |||
| 297 | (defun finder-exit () | 297 | (defun finder-exit () |
| 298 | "Exit Finder mode and kill the buffer" | 298 | "Exit Finder mode and kill the buffer" |
| 299 | (interactive) | 299 | (interactive) |
| 300 | (condition-case nil ; might be sole window | 300 | (or (one-window-p t) |
| 301 | (delete-window) | 301 | (delete-window)) |
| 302 | (error nil)) | ||
| 303 | ;; Can happen in either buffer -- kill each of the two that exists | 302 | ;; Can happen in either buffer -- kill each of the two that exists |
| 304 | (condition-case nil | 303 | (and (get-buffer "*Finder*") |
| 305 | (kill-buffer "*Finder*") | 304 | (kill-buffer "*Finder*")) |
| 306 | (error nil)) | 305 | (and (get-buffer "*Finder Category*") |
| 307 | (condition-case nil | 306 | (kill-buffer "*Finder Category*"))) |
| 308 | (kill-buffer "*Finder Category*") | ||
| 309 | (error nil))) | ||
| 310 | 307 | ||
| 311 | (provide 'finder) | 308 | (provide 'finder) |
| 312 | 309 | ||