Function: shr-face-background

shr-face-background is a byte-compiled function defined in shr.el.gz.

Signature

(shr-face-background FACE)

Source Code

;; Defined in /usr/src/emacs/lisp/net/shr.el.gz
(defun shr-face-background (face)
  (and (consp face)
       (or (and (plist-get face :background)
                (list :background (plist-get face :background)))
           (let ((background nil))
             (dolist (elem face)
               (when (and (consp elem)
                          (eq (car elem) :background)
                          (not background))
                 (setq background (cadr elem))))
             (and background
                  (list :background background :extend t))))))