Mercurial > emacs

comparison lisp/emacs-lisp/tq.el @ 16235:b5b7d7552f34

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tq-filter): No need for save-match-data.
author Richard M. Stallman <rms@gnu.org>
date Wed, 18 Sep 1996 22:00:30 +0000
parents 5a8275a74b25
children ef3033d89075
comparison
equal deleted inserted replaced
16234:5dce4ca06a77 16235:b5b7d7552f34
87 87
88 (defun tq-filter (tq string) 88 (defun tq-filter (tq string)
89 "Append STRING to the TQ's buffer; then process the new data." 89 "Append STRING to the TQ's buffer; then process the new data."
90 (let ((old-buffer (current-buffer))) 90 (let ((old-buffer (current-buffer)))
91 (unwind-protect 91 (unwind-protect
92 (save-match-data 92 (progn
93 (set-buffer (tq-buffer tq)) 93 (set-buffer (tq-buffer tq))
94 (goto-char (point-max)) 94 (goto-char (point-max))
95 (insert string) 95 (insert string)
96 (tq-process-buffer tq)) 96 (tq-process-buffer tq))
97 (set-buffer old-buffer)))) 97 (set-buffer old-buffer))))