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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ac641f8694b9da09a585581200b5c4f7d8afa377..8074ba02f39a31c424648a3117ffe97a549b1f89 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+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.

diff --git a/lisp/proced.el b/lisp/proced.el
index 9840d6f808fd7e34b23e395d50be018ad6f51ef8..743978b42e735c8e2691cfc2bddabed1b01cfc69 100644 (file)
--- 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)