[Emacs-diffs] emacs/lisp ChangeLog proced.el

[Juanma Barranquero]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Juanma Barranquero <lektu>      09/10/12 04:59:07

Modified files:
        lisp           : ChangeLog proced.el 

Log message:
        * proced.el (proced-unload-function): New function.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16409&r2=1.16410
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/proced.el?cvsroot=emacs&r1=1.41&r2=1.42

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16409
retrieving revision 1.16410
diff -u -b -r1.16409 -r1.16410
--- ChangeLog   12 Oct 2009 04:57:46 -0000      1.16409
+++ ChangeLog   12 Oct 2009 04:59:04 -0000      1.16410
@@ -1,5 +1,7 @@
 2009-10-12  Juanma Barranquero  <address@hidden>
 
+       * proced.el (proced-unload-function): New function.
+
        * bs.el (bs-mode): Set `revert-buffer-function' to `bs-refresh'.
        (bs-refresh): Add IGNORED arg for `revert-buffer' compatibility.
        Doc fix.

Index: proced.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/proced.el,v
retrieving revision 1.41
retrieving revision 1.42
diff -u -b -r1.41 -r1.42
--- proced.el   12 Sep 2009 02:42:25 -0000      1.41
+++ proced.el   12 Oct 2009 04:59:07 -0000      1.42
@@ -1867,6 +1867,16 @@
   (message "Change in Proced buffer undone.
 Killed processes cannot be recovered by Emacs."))
 
+(defun proced-unload-function ()
+  "Unload the Proced library."
+  (save-current-buffer
+    (dolist (buf (buffer-list))
+      (set-buffer buf)
+      (when (eq major-mode 'proced-mode)
+        (funcall (or (default-value 'major-mode) 'fundamental-mode)))))
+  ;; continue standard unloading
+  nil)
+
 (provide 'proced)
 
 ;; arch-tag: a6e312ad-9032-45aa-972d-31a8cfc545af