Function: gnus-cite-add-face

gnus-cite-add-face is a byte-compiled function defined in gnus-cite.el.gz.

Signature

(gnus-cite-add-face NUMBER PREFIX FACE)

Source Code

;; Defined in /usr/src/emacs/lisp/gnus/gnus-cite.el.gz
(defun gnus-cite-add-face (number prefix face)
  ;; At line NUMBER, ignore PREFIX and add FACE to the rest of the line.
  (when face
    (let ((inhibit-point-motion-hooks t)
	  from to overlay)
      (goto-char (point-min))
      (when (zerop (forward-line (1- number)))
	(forward-char (length prefix))
	(skip-chars-forward " \t")
	(setq from (point))
	(end-of-line 1)
	(skip-chars-backward " \t")
	(setq to (point))
	(when (< from to)
	  (push (setq overlay (make-overlay from to nil t))
		gnus-cite-overlay-list)
	  (overlay-put overlay 'evaporate t)
	  (overlay-put overlay 'face face))))))