From 8b78760bf5359ba370ac88918e14bf2af3caad42 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Fri, 4 Dec 2009 21:47:08 +0000 Subject: [PATCH] (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. --- lisp/ChangeLog | 7 +++++++ lisp/proced.el | 7 ++++--- 2 files changed, 11 insertions(+), 3 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bef37d72e58..689e1dc710c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2009-12-04 Juri Linkov + + * 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 * dired.el (dired-auto-revert-buffer): New defcustom. 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 \\\\[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 -- 2.39.5