[Emacs-diffs] emacs/lisp ChangeLog proced.el

[Juri Linkov]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juri Linkov <jurta>     09/12/04 21:47:12

Modified files:
        lisp           : ChangeLog proced.el 

Log message:
        (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.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16821&r2=1.16822
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/proced.el?cvsroot=emacs&r1=1.43&r2=1.44

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16821
retrieving revision 1.16822
diff -u -b -r1.16821 -r1.16822
--- ChangeLog   4 Dec 2009 21:45:31 -0000       1.16821
+++ ChangeLog   4 Dec 2009 21:47:08 -0000       1.16822
@@ -1,5 +1,12 @@
 2009-12-04  Juri Linkov  <address@hidden>
 
+       * 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  <address@hidden>
+
        * dired.el (dired-auto-revert-buffer): New defcustom.
        (dired-internal-noselect): Use it.
 

Index: proced.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/proced.el,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -b -r1.43 -r1.44
--- proced.el   3 Dec 2009 14:33:00 -0000       1.43
+++ proced.el   4 Dec 2009 21:47:12 -0000       1.44
@@ -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