]> code.delx.au - gnu-emacs/commitdiff
(finder-exit): Simplify.
authorKarl Heuer <kwzh@gnu.org>
Mon, 10 Nov 1997 23:28:59 +0000 (23:28 +0000)
committerKarl Heuer <kwzh@gnu.org>
Mon, 10 Nov 1997 23:28:59 +0000 (23:28 +0000)
lisp/finder.el

index 19929e080fb02a62add1915d21164b8c2e11b43d..6bb763f8e55c57d744b5c0a1366b863f93e43122 100644 (file)
@@ -297,16 +297,13 @@ arguments compiles from `load-path'."
 (defun finder-exit ()
   "Exit Finder mode and kill the buffer"
   (interactive)
-  (condition-case nil                  ; might be sole window
-      (delete-window)
-    (error nil))
+  (or (one-window-p t)
+      (delete-window))
   ;; Can happen in either buffer -- kill each of the two that exists
-  (condition-case nil
-      (kill-buffer "*Finder*")
-    (error nil))
-  (condition-case nil
-      (kill-buffer "*Finder Category*")
-    (error nil)))
+  (and (get-buffer "*Finder*")
+       (kill-buffer "*Finder*"))
+  (and (get-buffer "*Finder Category*")
+       (kill-buffer "*Finder Category*")))
 
 (provide 'finder)