diff options
| author | Karl Heuer | 1997-11-10 23:28:59 +0000 |
|---|---|---|
| committer | Karl Heuer | 1997-11-10 23:28:59 +0000 |
| commit | b26f4fbd7d3b17b5036ef7e81430f375e0c219ca (patch) | |
| tree | b97dd044ca32658115232f0a2a3987059f3bb369 | |
| parent | 039274cfc010c8d1466d78855aa1cba2b321c01e (diff) | |
| download | emacs-b26f4fbd7d3b17b5036ef7e81430f375e0c219ca.tar.gz emacs-b26f4fbd7d3b17b5036ef7e81430f375e0c219ca.zip | |
(finder-exit): Simplify.
| -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 | ||