mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-04 08:47:11 +00:00
Code Issues Releases Activity

Fix last change.

Browse Source
This commit is contained in:
Dave Love 2000-05-22 18:19:55 +00:00
parent 0e8c11d821
commit 286c138d80
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/progmodes/etags.el
View File

@ -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)