From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 21 Jan 1998 05:26:11 +0000 (+0000)
Subject: (tq-filter): Use with-current-buffer.
X-Git-Tag: emacs-20.3~2381
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=09841f8db266d6f56b9c1af081c43f988c0af28b;p=emacs.git

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

diff --git a/lisp/emacs-lisp/tq.el b/lisp/emacs-lisp/tq.el
index 5b2fa3ca399..41839c8f11f 100644
--- a/lisp/emacs-lisp/tq.el
+++ b/lisp/emacs-lisp/tq.el
@@ -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."