# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1259963228 0
# Node ID a8fa237ee1fa7296bf1a3015bd079020cd93e558
# Parent  c1162f7a37aaa22f7d19a9cd56eb332f83d0cfe1
(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.

diff -r c1162f7a37aa -r a8fa237ee1fa lisp/ChangeLog
--- 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.
diff -r c1162f7a37aa -r a8fa237ee1fa lisp/proced.el
--- 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