From dc42d0ca0b7b6877bd22b91e19c34d3d7d7902f9 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Mon, 29 Feb 2016 22:21:11 +1100 Subject: [PATCH] Use the correct background color when filling nested * 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 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/net/shr.el b/lisp/net/shr.el index b36dd56f09c..e9431325333 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)))))) -- 2.39.2