From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Mon, 29 Feb 2016 11:21:11 +0000 (+1100)
Subject: Use the correct background color when filling nested <divs>
X-Git-Tag: emacs-26.0.90~2427
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=cad0bc70558f9c28c808711c5295dec9fc5ad6e5;p=emacs.git

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).
---

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 63e02d988ef..fc6fca7060e 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -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))))))