diff options
| -rw-r--r-- | lisp/ChangeLog | 2 | ||||
| -rw-r--r-- | lisp/proced.el | 10 |
2 files changed, 12 insertions, 0 deletions
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 |