Mercurial > emacs
comparison lisp/progmodes/etags.el @ 29086:a4b321043588
Fix last change.
| author | Dave Love <fx@gnu.org> |
|---|---|
| date | Mon, 22 May 2000 18:19:55 +0000 |
| parents | 3b2040b6030a |
| children | 8b7b0c7c65db |
comparison
equal
deleted
inserted
replaced
| 29085:602b7988fdb1 | 29086:a4b321043588 |
|---|---|
| 1293 t)) | 1293 t)) |
| 1294 | 1294 |
| 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) |
| 1305 "Display tags matching REGEXP from `tags-apropos-additional-actions'." | 1304 "Display tags matching REGEXP from `tags-apropos-additional-actions'." |
| 1306 (with-current-buffer standard-output | 1305 (with-current-buffer standard-output |