Function: shr-add-font

shr-add-font is a byte-compiled function defined in shr.el.gz.

Signature

(shr-add-font START END TYPE)

Source Code

;; Defined in /usr/src/emacs/lisp/net/shr.el.gz
;; Add face to the region, but avoid putting the font properties on
;; blank text at the start of the line, and the newline at the end, to
;; avoid ugliness.
(defun shr-add-font (start end type)
  (save-excursion
    (goto-char start)
    (while (< (point) end)
      (when (bolp)
        (skip-chars-forward " "))
      (add-face-text-property (point) (min (line-end-position) end) type t)
      (if (< (line-end-position) end)
          (forward-line 1)
        (goto-char end)))))