diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2009-10-12 04:59:04 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2009-10-12 04:59:04 +0000 |
| commit | 7422a4bb970131a6a9e0c7c27cbfa19ec24a3485 (patch) | |
| tree | 5a29857c138f790c0eba50bb6cc209155a5ad2d7 | |
| parent | fa72d07524d48892dfd924224dbdc03eed6fcc41 (diff) | |
| download | emacs-7422a4bb970131a6a9e0c7c27cbfa19ec24a3485.tar.gz | |
* proced.el (proced-unload-function): New function.
| -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 |