From: Chong Yidong <cyd@stupidchicken.com>
Date: Mon, 4 Jun 2007 23:15:08 +0000 (+0000)
Subject: (tq-queue-pop): Stifle error when a process has died and we are trying
X-Git-Tag: emacs-pretest-22.1.90~1450
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5fbd207936f9d2d00aec9504af9b3da3a82764c5;p=emacs.git

(tq-queue-pop): Stifle error when a process has died and we are trying
to send a signal to it.
---

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)