Commit 09841f8d authored by Richard M. Stallman's avatar Richard M. Stallman

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

parent e8c86f8d
......@@ -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)))
(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."
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment