diff options
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/proced.el | 8 |
2 files changed, 8 insertions, 4 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ac641f8694b..8074ba02f39 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2008-04-13 Roland Winkler <Roland.Winkler@physik.uni-erlangen.de> + * proced.el (proced-send-signal): Fix error recognition. + +2008-04-13 Roland Winkler <Roland.Winkler@physik.uni-erlangen.de> + * proced.el (proced-command-alist): Remove sort column. (proced-command, proced-procname-column): Use make-variable-buffer-local. diff --git a/lisp/proced.el b/lisp/proced.el index 9840d6f808f..743978b42e7 100644 --- a/lisp/proced.el +++ b/lisp/proced.el @@ -516,8 +516,8 @@ If SIGNAL is nil display marked processes and query interactively for SIGNAL." (if (zerop (funcall proced-signal-function (string-to-number (car process)) signal)) - (push (cdr process) err-list) - (setq count (1+ count))))) + (setq count (1+ count)) + (push (cdr process) err-list)))) ;; use external system call (let ((signal (concat "-" (if (numberp signal) (number-to-string signal) signal)))) @@ -525,8 +525,8 @@ If SIGNAL is nil display marked processes and query interactively for SIGNAL." (if (zerop (call-process proced-signal-function nil 0 nil signal (car process))) - (push (cdr process) err-list) - (setq count (1+ count)))))) + (setq count (1+ count)) + (push (cdr process) err-list))))) (if err-list ;; FIXME: that's not enough to display the errors. (message "%s: %s" signal err-list) |