diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2018-04-13 17:30:59 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2018-04-13 17:30:59 +0200 |
| commit | b1943e84bc652e05f0737d1f171a5255b4d96f72 (patch) | |
| tree | 497a93b8d9b7068b7958e392bcb2fe4efdf0e6e3 /lisp | |
| parent | c194be368cbbedd31092c22bd3a5b25113a83ac9 (diff) | |
| download | emacs-b1943e84bc652e05f0737d1f171a5255b4d96f72.tar.gz | |
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).
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/net/shr.el | 10 |
1 files changed, 7 insertions, 3 deletions
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)) |