[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/proced.el,v
From: |
Roland Winkler |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/proced.el,v |
Date: |
Mon, 14 Apr 2008 02:41:07 +0000 |
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)