From 286c138d805e116ab67f73e1569a143a29c8db35 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 22 May 2000 18:19:55 +0000 Subject: [PATCH] Fix last change. --- lisp/progmodes/etags.el | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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)