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 aa62e724636feb3f91504939bebf741ca6646732..7b8c841d9dcae9fd53368d52ddd1bcc4688cc8ba 100644 (file)
--- 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))