mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-16 17:19:41 +00:00
Code Issues Releases Activity

(tq-filter): Use with-current-buffer.

Browse Source
This commit is contained in:
Richard M. Stallman 1998-01-21 05:26:11 +00:00
parent e8c86f8d74
commit 09841f8db2
1 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lisp/emacs-lisp/tq.el
View File

@ -87,14 +87,10 @@ that's how we tell where the answer ends."
(defun tq-filter (tq string)
"Append STRING to the TQ's buffer; then process the new data."
(let ((old-buffer (current-buffer)))
(unwind-protect
(progn
(set-buffer (tq-buffer tq))
(goto-char (point-max))
(insert string)
(tq-process-buffer tq))
(set-buffer old-buffer))))
(with-current-buffer (tq-buffer tq)
(goto-char (point-max))
(insert string)
(tq-process-buffer tq)))
(defun tq-process-buffer (tq)
"Check TQ's buffer for the regexp at the head of the queue."