From: Dave Love <fx@gnu.org>
Date: Mon, 22 May 2000 18:19:55 +0000 (+0000)
Subject: Fix last change.
X-Git-Tag: emacs-pretest-21.0.90~3811
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=286c138d805e116ab67f73e1569a143a29c8db35;p=emacs.git

Fix last change.
---

diff --git a/lisp/progmodes/etags.el b/lisp/progmodes/etags.el
index 7469308a781..154217b6e8e 100644
--- a/lisp/progmodes/etags.el
+++ b/lisp/progmodes/etags.el
@@ -1295,10 +1295,9 @@ where they were found."
 (defmacro tags-with-face (face &rest body)
   "Execute BODY, give output to `standard-output' face FACE."
   (let ((pp (gensym "twf-")))
-    `(let ((,old-point (with-current-buffer standard-output (point))))
+    `(let ((,pp (with-current-buffer standard-output (point))))
        ,@body
-       (put-text-property ,old-point (with-current-buffer standard-output
-				       (point))
+       (put-text-property ,pp (with-current-buffer standard-output (point))
 			  'face ,face standard-output))))
 
 (defun etags-tags-apropos-additional (regexp)