Function: shr-colorize-region

shr-colorize-region is a byte-compiled function defined in shr.el.gz.

Signature

(shr-colorize-region START END FG &optional BG)

Source Code

;; Defined in /usr/src/emacs/lisp/net/shr.el.gz
(defun shr-colorize-region (start end fg &optional bg)
  (when (and shr-use-colors
             (or fg bg)
             (>= (display-color-cells) 88))
    (let ((new-colors (shr-color-check fg bg)))
      (when new-colors
	(when fg
	  (add-face-text-property start end
				  (list :foreground (cadr new-colors))
				  t))
	(when bg
	  (add-face-text-property start end
				  (list :background (car new-colors) :extend t)
				  t)))
      new-colors)))