[Emacs-diffs] emacs-25 dc42d0c: Use the correct background color when filling nested <divs>

[Lars Ingebrigtsen]

branch: emacs-25
commit dc42d0ca0b7b6877bd22b91e19c34d3d7d7902f9
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>

    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).
    
    Backport:
    
    (cherry picked from commit cad0bc70558f9c28c808711c5295dec9fc5ad6e5)
---
 lisp/net/shr.el |    3 ++-
 1 files changed, 2 insertions(+), 1 deletions(-)

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index b36dd56..e943132 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1791,7 +1791,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))))))