# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 1180533999 0
# Node ID f4d5f1a408755a4070ca0ea6e25e8f728a2649a2
# Parent  1f40aca3eadcf203109f26f9aed6d39f86b82956
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>

diff -r 1f40aca3eadc -r f4d5f1a40875 lisp/ChangeLog
--- a/lisp/ChangeLog	Wed May 30 05:24:18 2007 +0000
+++ b/lisp/ChangeLog	Wed May 30 14:06:39 2007 +0000
@@ -1,3 +1,11 @@
+2007-05-30  Michael Olson  <mwolson@gnu.org>
+
+	* emacs-lisp/tq.el (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.
+
 2007-05-29  Martin Rudalics  <rudalics@gmx.at>
 
 	* textmodes/table.el (table--point-entered-cell-function)
diff -r 1f40aca3eadc -r f4d5f1a40875 lisp/emacs-lisp/tq.el
--- a/lisp/emacs-lisp/tq.el	Wed May 30 05:24:18 2007 +0000
+++ b/lisp/emacs-lisp/tq.el	Wed May 30 14:06:39 2007 +0000
@@ -100,8 +100,9 @@
 (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)