diff lisp/proced.el @ 105571:9325921bfcde

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

--- a/lisp/proced.el	Mon Oct 12 04:57:46 2009 +0000
+++ b/lisp/proced.el	Mon Oct 12 04:59:04 2009 +0000
@@ -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