Mercurial > emacs
changeset 29086:a4b321043588
Fix last change.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Mon, 22 May 2000 18:19:55 +0000 |
| parents | 602b7988fdb1 |
| children | d6e90113152f |
| files | lisp/progmodes/etags.el |
| diffstat | 1 files changed, 2 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- 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)