mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-17 10:06:13 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Roland Winkler 2008-04-14 02:42:11 +00:00
parent 6c763a3075
commit 52434c810e
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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.

8
lisp/proced.el
View File

@ -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)