Mercurial > emacs
comparison lisp/emacs-lisp/tq.el @ 17216:ef3033d89075
(tq-process-buffer): Catch errors running tq-queue-head-fn.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 22 Mar 1997 03:55:49 +0000 |
| parents | b5b7d7552f34 |
| children | b48b8060e70d |
comparison
equal
deleted
inserted
replaced
| 17215:21e3f467224e | 17216:ef3033d89075 |
|---|---|
| 110 (buffer-name buf))) | 110 (buffer-name buf))) |
| 111 (goto-char (point-min)) | 111 (goto-char (point-min)) |
| 112 (if (re-search-forward (tq-queue-head-regexp tq) nil t) | 112 (if (re-search-forward (tq-queue-head-regexp tq) nil t) |
| 113 (let ((answer (buffer-substring (point-min) (point)))) | 113 (let ((answer (buffer-substring (point-min) (point)))) |
| 114 (delete-region (point-min) (point)) | 114 (delete-region (point-min) (point)) |
| 115 (funcall (tq-queue-head-fn tq) | 115 (unwind-protect |
| 116 (tq-queue-head-closure tq) | 116 (condition-case nil |
| 117 answer) | 117 (funcall (tq-queue-head-fn tq) |
| 118 (tq-queue-pop tq) | 118 (tq-queue-head-closure tq) |
| 119 answer) | |
| 120 (error nil)) | |
| 121 (tq-queue-pop tq)) | |
| 119 (tq-process-buffer tq)))))) | 122 (tq-process-buffer tq)))))) |
| 120 | 123 |
| 121 (provide 'tq) | 124 (provide 'tq) |
| 122 | 125 |
| 123 ;;; tq.el ends here | 126 ;;; tq.el ends here |