# HG changeset patch
# User Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
# Date 1208140867 0
# Node ID f446992a6a91b2a0613e332fb87da201390cbe88
# Parent  22c67e6590d0d68aca6a872b61414ec174d3000c
(proced-send-signal): Fix error recognition.

diff -r 22c67e6590d0 -r f446992a6a91 lisp/proced.el
--- a/lisp/proced.el	Mon Apr 14 02:00:02 2008 +0000
+++ b/lisp/proced.el	Mon Apr 14 02:41:07 2008 +0000
@@ -516,8 +516,8 @@
                   (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 (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)