Mercurial > emacs
changeset 106411:a8fa237ee1fa
(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.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Fri, 04 Dec 2009 21:47:08 +0000 |
| parents | c1162f7a37aa |
| children | 3fea95b17dfa |
| files | lisp/ChangeLog lisp/proced.el |
| diffstat | 2 files changed, 11 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Fri Dec 04 21:45:29 2009 +0000 +++ b/lisp/ChangeLog Fri Dec 04 21:47:08 2009 +0000 @@ -1,3 +1,10 @@ +2009-12-04 Juri Linkov <juri@jurta.org> + + * proced.el (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. + 2009-12-04 Juri Linkov <juri@jurta.org> * dired.el (dired-auto-revert-buffer): New defcustom.
--- a/lisp/proced.el Fri Dec 04 21:45:29 2009 +0000 +++ b/lisp/proced.el Fri Dec 04 21:47:08 2009 +0000 @@ -682,9 +682,9 @@ (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 @@ (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