[Emacs-diffs] Changes to emacs/lisp/proced.el,v

[Roland Winkler]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Roland Winkler <winkler>        08/04/14 02:41:07

Index: proced.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/proced.el,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -b -r1.4 -r1.5
--- proced.el   14 Apr 2008 01:34:04 -0000      1.4
+++ proced.el   14 Apr 2008 02:41:07 -0000      1.5
@@ -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)