Function: tags-with-face

tags-with-face is a macro defined in etags.el.gz.

Signature

(tags-with-face FACE &rest BODY)

Documentation

Execute BODY, give output to standard-output face FACE.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/etags.el.gz
(defmacro tags-with-face (face &rest body)
  "Execute BODY, give output to `standard-output' face FACE."
  (let ((pp (make-symbol "start")))
    `(let ((,pp (with-current-buffer standard-output (point))))
       ,@body
       (put-text-property ,pp (with-current-buffer standard-output (point))
			  'face ,face standard-output))))