lisp/finder.el (finder-unload-function): New function.

53f6cda8 · Juanma Barranquero · 43977c23 · 53f6cda8 · 53f6cda8
Commit 53f6cda8 authored Feb 28, 2014 by Juanma Barranquero
Hide whitespace changes
Inline Side-by-side

Showing with 10 additions and 0 deletions

lisp/ChangeLog lisp/ChangeLog +4 -0

lisp/finder.el lisp/finder.el +6 -0

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
+2014-02-28  Juanma Barranquero  <lekktu@gmail.com>
+
+	* finder.el (finder-unload-function): New function.
+
 2014-02-28  Juanma Barranquero  <lekktu@gmail.com>

 	* dframe.el (dframe-detach):

--- a/lisp/finder.el
+++ b/lisp/finder.el
@@ -431,6 +431,12 @@ Delete the window and kill all Finder-related buffers."
  (let ((buf "*Finder*"))
    (and (get-buffer buf) (kill-buffer buf))))

+(defun finder-unload-function ()
+  "Unload the Finder library."
+  (with-demoted-errors (unload-feature 'finder-inf t))
+  ;; continue standard unloading
+  nil)
+

 (provide 'finder)