[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/tq.el,v

[Miles Bader]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Miles Bader <miles>     07/05/30 14:06:39

Index: emacs-lisp/tq.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/emacs-lisp/tq.el,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -b -r1.25 -r1.26
--- emacs-lisp/tq.el    21 Jan 2007 02:44:24 -0000      1.25
+++ emacs-lisp/tq.el    30 May 2007 14:06:39 -0000      1.26
@@ -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)