diff options
| author | Miles Bader <miles@gnu.org> | 2007-05-30 14:06:39 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2007-05-30 14:06:39 +0000 |
| commit | 7a781a5480b9a1f55d28a76e1d1f89aaa2421f97 (patch) | |
| tree | cde11f8e1eaeeda830d30e51cb93033114a8bc49 /lisp/emacs-lisp/tq.el | |
| parent | 57669cf1d3f0c1a7634b0df1fbd1d17141644c75 (diff) | |
| download | emacs-7a781a5480b9a1f55d28a76e1d1f89aaa2421f97.tar.gz emacs-7a781a5480b9a1f55d28a76e1d1f89aaa2421f97.tar.bz2 emacs-7a781a5480b9a1f55d28a76e1d1f89aaa2421f97.zip | |
Fix tq.el edge case
(tq-queue-pop): Stifle error when a process has died and we are trying to
send a signal to it. The program using tq.el should periodically check
to see whether the process has died and react appropriately -- this is
not the responsibility of tq.el, and is consistent with the rest of the
tq.el source code.
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-779
Creator: Michael Olson <mwolson@gnu.org>
Diffstat (limited to 'lisp/emacs-lisp/tq.el')
| -rw-r--r-- | lisp/emacs-lisp/tq.el | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/tq.el b/lisp/emacs-lisp/tq.el index b12c21b6730..f20015fd720 100644 --- a/lisp/emacs-lisp/tq.el +++ b/lisp/emacs-lisp/tq.el @@ -100,8 +100,9 @@ to a tcp server on another machine." (defun tq-queue-pop (tq) (setcar tq (cdr (car tq))) (let ((question (tq-queue-head-question tq))) - (when question - (process-send-string (tq-process tq) question))) + (condition-case nil + (process-send-string (tq-process tq) question) + (error nil))) (null (car tq))) (defun tq-enqueue (tq question regexp closure fn &optional delay-question) |