[Emacs-diffs] trunk r116611: lisp/finder.el (finder-unload-function): New function.

[Juanma Barranquero]

------------------------------------------------------------
revno: 116611
revision-id: address@hidden
parent: address@hidden
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Fri 2014-02-28 14:59:36 +0100
message:
  lisp/finder.el (finder-unload-function): New function.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/finder.el                 finder.el-20091113204419-o5vbwnq5f7feedwu-499

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-02-28 13:19:06 +0000
+++ b/lisp/ChangeLog    2014-02-28 13:59:36 +0000
@@ -1,5 +1,9 @@
 2014-02-28  Juanma Barranquero  <address@hidden>
 
+       * finder.el (finder-unload-function): New function.
+
+2014-02-28  Juanma Barranquero  <address@hidden>
+
        * dframe.el (dframe-detach):
        * find-dired.el (find-dired, find-name-dired):
        * finder.el (finder-mode-map, finder-mode-syntax-table)

=== modified file 'lisp/finder.el'
--- a/lisp/finder.el    2014-02-28 13:19:06 +0000
+++ b/lisp/finder.el    2014-02-28 13:59:36 +0000
@@ -431,6 +431,12 @@
   (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)