diff options
| author | Dave Love | 2000-05-22 18:19:55 +0000 |
|---|---|---|
| committer | Dave Love | 2000-05-22 18:19:55 +0000 |
| commit | 286c138d805e116ab67f73e1569a143a29c8db35 (patch) | |
| tree | b95da436138ba1fc78a8afe5ea4d45ae6f30f578 | |
| parent | 0e8c11d82152d20caae80aa6a36cab4d1fdcaabd (diff) | |
| download | emacs-286c138d805e116ab67f73e1569a143a29c8db35.tar.gz emacs-286c138d805e116ab67f73e1569a143a29c8db35.zip | |
Fix last change.
| -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." | |||
| 1295 | (defmacro tags-with-face (face &rest body) | 1295 | (defmacro tags-with-face (face &rest body) |
| 1296 | "Execute BODY, give output to `standard-output' face FACE." | 1296 | "Execute BODY, give output to `standard-output' face FACE." |
| 1297 | (let ((pp (gensym "twf-"))) | 1297 | (let ((pp (gensym "twf-"))) |
| 1298 | `(let ((,old-point (with-current-buffer standard-output (point)))) | 1298 | `(let ((,pp (with-current-buffer standard-output (point)))) |
| 1299 | ,@body | 1299 | ,@body |
| 1300 | (put-text-property ,old-point (with-current-buffer standard-output | 1300 | (put-text-property ,pp (with-current-buffer standard-output (point)) |
| 1301 | (point)) | ||
| 1302 | 'face ,face standard-output)))) | 1301 | 'face ,face standard-output)))) |
| 1303 | 1302 | ||
| 1304 | (defun etags-tags-apropos-additional (regexp) | 1303 | (defun etags-tags-apropos-additional (regexp) |