HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
328a37e
)
(tq-process-buffer): Catch errors running tq-queue-head-fn.
author
Richard M. Stallman
<rms@gnu.org>
Sat, 22 Mar 1997 03:55:49 +0000
(
03:55
+0000)
committer
Richard M. Stallman
<rms@gnu.org>
Sat, 22 Mar 1997 03:55:49 +0000
(
03:55
+0000)
lisp/emacs-lisp/tq.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/emacs-lisp/tq.el
b/lisp/emacs-lisp/tq.el
index
0de2c48
..
5b2fa3c
100644
(file)
--- a/
lisp/emacs-lisp/tq.el
+++ b/
lisp/emacs-lisp/tq.el
@@
-112,10
+112,13
@@
that's how we tell where the answer ends."
(if (re-search-forward (tq-queue-head-regexp tq) nil t)
(let ((answer (buffer-substring (point-min) (point))))
(delete-region (point-min) (point))
- (funcall (tq-queue-head-fn tq)
- (tq-queue-head-closure tq)
- answer)
- (tq-queue-pop tq)
+ (unwind-protect
+ (condition-case nil
+ (funcall (tq-queue-head-fn tq)
+ (tq-queue-head-closure tq)
+ answer)
+ (error nil))
+ (tq-queue-pop tq))
(tq-process-buffer tq))))))
(provide 'tq)