# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1180998908 0
# Node ID 57715561e846bd21e1afbde8a862ed5a26afad78
# Parent  e41f2897e2fe4b8105ffdb5d64865163f9c85563
(tq-queue-pop): Stifle error when a process has died and we are trying
to send a signal to it.

diff -r e41f2897e2fe -r 57715561e846 lisp/emacs-lisp/tq.el
--- a/lisp/emacs-lisp/tq.el	Mon Jun 04 23:14:56 2007 +0000
+++ b/lisp/emacs-lisp/tq.el	Mon Jun 04 23:15:08 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)