# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 959019595 0
# Node ID a4b32104358875b7178bf345ecaabef4e922bb0d
# Parent  602b7988fdb1f70ef912aa5bbb67cd1dec563d22
Fix last change.

diff -r 602b7988fdb1 -r a4b321043588 lisp/progmodes/etags.el
--- a/lisp/progmodes/etags.el	Mon May 22 18:15:56 2000 +0000
+++ b/lisp/progmodes/etags.el	Mon May 22 18:19:55 2000 +0000
@@ -1295,10 +1295,9 @@
 (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)