Commit 286c138d authored by Dave Love's avatar Dave Love
Browse files

Fix last change.

parent 0e8c11d8
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment