From c1179b00dd8310c7f0575fa576ea8c1158916bde Mon Sep 17 00:00:00 2001
From: Michael Olson <mwolson@gnu.org>
Date: Sat, 26 May 2007 21:16:00 +0000
Subject: tq.el: Fix edge case

darcs-hash:20070526211610-1bfb2-fd67edfe8ce03e72bef3d330b396d0fc516f115c.gz
---
 tq.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'tq.el')

diff --git a/tq.el b/tq.el
index 6219e43..1b04939 100644
--- a/tq.el
+++ b/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)
-- 
cgit v1.2.3