Use the correct background color when filling nested <divs>

* lisp/net/shr.el (shr-face-background): Return the first
background, because that's the one that's visible (bug#22680).
This commit is contained in:
Lars Ingebrigtsen 2016-02-29 22:21:11 +11:00
parent 379a846b85
commit cad0bc7055

View file

@ -1911,7 +1911,8 @@ The preference is a float determined from `shr-prefer-media-type'."
(let ((background nil))
(dolist (elem face)
(when (and (consp elem)
(eq (car elem) :background))
(eq (car elem) :background)
(not background))
(setq background (cadr elem))))
(and background
(list :background background))))))