aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMichael Olson <mwolson@gnu.org>2007-05-26 21:16:00 +0000
committerMichael Olson <mwolson@gnu.org>2007-05-26 21:16:00 +0000
commitc1179b00dd8310c7f0575fa576ea8c1158916bde (patch)
tree84fbb4624407997af80fc47f0c41aa74fad1f2b0
parentfcc4cfffacdab4e3eef129e3a1e4a28b60c1c4ea (diff)
tq.el: Fix edge case
darcs-hash:20070526211610-1bfb2-fd67edfe8ce03e72bef3d330b396d0fc516f115c.gz
-rw-r--r--tq.el5
1 files changed, 3 insertions, 2 deletions
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)