(proced-send-signal): Fix error recognition.

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)