From 52434c810ea7264df27e6a1e8a0ce47ac58a1d62 Mon Sep 17 00:00:00 2001 From: Roland Winkler Date: Mon, 14 Apr 2008 02:42:11 +0000 Subject: [PATCH] (proced-send-signal): Fix error recognition. --- lisp/ChangeLog | 4 ++++ 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,3 +1,7 @@ +2008-04-13 Roland Winkler + + * proced.el (proced-send-signal): Fix error recognition. + 2008-04-13 Roland Winkler * proced.el (proced-command-alist): Remove sort column. 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) -- 2.39.5