diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/etags.el | 5 |
1 files 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) |