diff options
| author | Juri Linkov <juri@jurta.org> | 2009-12-04 21:47:08 +0000 |
|---|---|---|
| committer | Juri Linkov <juri@jurta.org> | 2009-12-04 21:47:08 +0000 |
| commit | 8b78760bf5359ba370ac88918e14bf2af3caad42 (patch) | |
| tree | a4f1c469c923de7f6858e5a5c0efd70c114cdad0 /lisp/proced.el | |
| parent | 2b3489a76dc4de45e624530f1ad3341654cce52b (diff) | |
| download | emacs-8b78760bf5359ba370ac88918e14bf2af3caad42.tar.gz | |
(proced): Call `(proced-update t)' to update process
information instead of only running proced-post-display-hook.
(proced-send-signal): Add a leading space to the buffer name
" *Marked Processes*" to make this buffer ephemeral.
Diffstat (limited to 'lisp/proced.el')
| -rw-r--r-- | lisp/proced.el | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/lisp/proced.el b/lisp/proced.el index 00c55bd254a..d0ae1c79221 100644 --- a/lisp/proced.el +++ b/lisp/proced.el @@ -682,9 +682,9 @@ See `proced-mode' for a description of features available in Proced buffers." (progn (display-buffer buffer) (with-current-buffer buffer - (run-hooks 'proced-post-display-hook))) + (proced-update t))) (pop-to-buffer buffer) - (run-hooks 'proced-post-display-hook) + (proced-update t) (message (substitute-command-keys "Type \\<proced-mode-map>\\[quit-window] to quit, \\[proced-help] for help"))))) @@ -1711,7 +1711,8 @@ After sending the signal, this command runs the normal hook (line-end-position)))))) (unless signal ;; Display marked processes (code taken from `dired-mark-pop-up'). - (let ((bufname "*Marked Processes*") + (let ((bufname " *Marked Processes*") ; use leading space in buffer name + ; to make this buffer ephemeral (header-line (substring-no-properties proced-header-line))) (with-current-buffer (get-buffer-create bufname) (setq truncate-lines t |