Mercurial > emacs

changeset 94066:f446992a6a91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(proced-send-signal): Fix error recognition.
author Roland Winkler <Roland.Winkler@physik.uni-erlangen.de>
date Mon, 14 Apr 2008 02:41:07 +0000
parents 22c67e6590d0
children 2dcfdc0c1d07
files lisp/proced.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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)