From: Juanma Barranquero <lekktu@gmail.com>
Date: Mon, 12 Oct 2009 04:59:04 +0000 (+0000)
Subject: * proced.el (proced-unload-function): New function.
X-Git-Tag: emacs-pretest-23.1.90~830
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7422a4bb970131a6a9e0c7c27cbfa19ec24a3485;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ae3745cf518..8e82e00056d 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2009-10-12  Juanma Barranquero  <lekktu@gmail.com>
 
+	* 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.
diff --git a/lisp/proced.el b/lisp/proced.el
index cd9255cfdee..fd3e4ab706e 100644
--- a/lisp/proced.el
+++ b/lisp/proced.el
@@ -1867,6 +1867,16 @@ buffer.  You can use it to recover marks."
   (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