diff options
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/proced.el | 4 |
2 files changed, 7 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 069dbb2922f..bd27ae8da22 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,7 @@ | |||
| 1 | 2011-07-19 Roland Winkler <winkler@gnu.org> | ||
| 2 | * proced.el (proced-send-signal): For *Marked Processes* buffer | ||
| 3 | put point at beginning of buffer. | ||
| 4 | |||
| 1 | 2011-07-19 Stephen Berman <stephen.berman@gmx.net> | 5 | 2011-07-19 Stephen Berman <stephen.berman@gmx.net> |
| 2 | 6 | ||
| 3 | * proced.el (proced-format): Make header lines align with the text | 7 | * proced.el (proced-format): Make header lines align with the text |
diff --git a/lisp/proced.el b/lisp/proced.el index cc1856060b3..b1a7aed722c 100644 --- a/lisp/proced.el +++ b/lisp/proced.el | |||
| @@ -1733,7 +1733,9 @@ After sending the signal, this command runs the normal hook | |||
| 1733 | (buffer-disable-undo) | 1733 | (buffer-disable-undo) |
| 1734 | (setq buffer-read-only t) | 1734 | (setq buffer-read-only t) |
| 1735 | (dolist (process process-alist) | 1735 | (dolist (process process-alist) |
| 1736 | (insert " " (cdr process) "\n"))) | 1736 | (insert " " (cdr process) "\n")) |
| 1737 | (delete-char -1) | ||
| 1738 | (goto-char (point-min))) | ||
| 1737 | (save-window-excursion | 1739 | (save-window-excursion |
| 1738 | ;; Analogous to `dired-pop-to-buffer' | 1740 | ;; Analogous to `dired-pop-to-buffer' |
| 1739 | ;; Don't split window horizontally. (Bug#1806) | 1741 | ;; Don't split window horizontally. (Bug#1806) |