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 /lisp/proced.el | |
| parent | fa72d07524d48892dfd924224dbdc03eed6fcc41 (diff) | |
| download | emacs-7422a4bb970131a6a9e0c7c27cbfa19ec24a3485.tar.gz | |
* proced.el (proced-unload-function): New function.
Diffstat (limited to 'lisp/proced.el')
| -rw-r--r-- | lisp/proced.el | 10 |
1 files changed, 10 insertions, 0 deletions
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 |