procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Tweak tq queue processing

Browse source 
* lisp/emacs-lisp/tq.el (tq-process-buffer): Pop the queue before
calling the function because the function may add new entries to
the queue (bug#19016).  Also report errors.
This commit is contained in:
Andreas Politz 2019-08-03 16:33:06 +02:00 • committed by Lars Ingebrigtsen
parent d70bf3a126
commit 95d2250bcf
1 changed files with 11 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

19
lisp/emacs-lisp/tq.el
View file

@ -153,15 +153,18 @@ This produces more reliable results with some processes."
(buffer-name buf)))
(goto-char (point-min))
(if (re-search-forward (tq-queue-head-regexp tq) nil t)
(let ((answer (buffer-substring (point-min) (point))))
(let ((answer (buffer-substring (point-min) (point)))
(fn (tq-queue-head-fn tq))
(closure (tq-queue-head-closure tq)))
(delete-region (point-min) (point))
(unwind-protect
(condition-case nil
(funcall (tq-queue-head-fn tq)
(tq-queue-head-closure tq)
answer)
(error nil))
(tq-queue-pop tq))
;; Pop the queue before calling the function because
;; the function may add new functions to the head of
;; the queue.
(tq-queue-pop tq)
(condition-case err
(funcall fn closure answer)
(error (message "Error while processing tq callback: %s"
(error-message-string err))))
(tq-process-buffer tq))))))))
(provide 'tq)