diff options
| author | Dave Love <[email protected]> | 2000-05-22 18:19:55 +0000 |
|---|---|---|
| committer | Dave Love <[email protected]> | 2000-05-22 18:19:55 +0000 |
| commit | 286c138d805e116ab67f73e1569a143a29c8db35 (patch) | |
| tree | b95da436138ba1fc78a8afe5ea4d45ae6f30f578 /lisp | |
| parent | 0e8c11d82152d20caae80aa6a36cab4d1fdcaabd (diff) | |
Fix last change.
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 7469308a78..154217b6e8 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) |