Commit b26f4fbd authored by Karl Heuer's avatar Karl Heuer
Browse files

(finder-exit): Simplify.

parent 039274cf
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment