From 5fbd207936f9d2d00aec9504af9b3da3a82764c5 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Mon, 4 Jun 2007 23:15:08 +0000 Subject: [PATCH] (tq-queue-pop): Stifle error when a process has died and we are trying to send a signal to it. --- lisp/emacs-lisp/tq.el | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) 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) -- 2.39.2