From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Fri, 13 Apr 2018 15:30:59 +0000 (+0200)
Subject: Make shr support inline <div>s
X-Git-Tag: emacs-27.0.90~5247
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b1943e84bc652e05f0737d1f171a5255b4d96f72;p=emacs.git

Make shr support inline <div>s

* lisp/net/shr.el (shr-tag-div): Support display: inline; for
<div>, since that's a very common thing (bug#25588).
---

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index aa62e724636..7b8c841d9dc 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1368,9 +1368,13 @@ ones, in case fg and bg are nil."
   (shr-ensure-paragraph))
 
 (defun shr-tag-div (dom)
-  (shr-ensure-newline)
-  (shr-generic dom)
-  (shr-ensure-newline))
+  (let ((display (cdr (assq 'display shr-stylesheet))))
+    (if (or (equal display "inline")
+            (equal display "inline-block"))
+        (shr-generic dom)
+      (shr-ensure-newline)
+      (shr-generic dom)
+      (shr-ensure-newline))))
 
 (defun shr-tag-s (dom)
   (shr-fontize-dom dom 'shr-strike-through))