diff options
| -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." | |||
| 1368 | (shr-ensure-paragraph)) | 1368 | (shr-ensure-paragraph)) |
| 1369 | 1369 | ||
| 1370 | (defun shr-tag-div (dom) | 1370 | (defun shr-tag-div (dom) |
| 1371 | (shr-ensure-newline) | 1371 | (let ((display (cdr (assq 'display shr-stylesheet)))) |
| 1372 | (shr-generic dom) | 1372 | (if (or (equal display "inline") |
| 1373 | (shr-ensure-newline)) | 1373 | (equal display "inline-block")) |
| 1374 | (shr-generic dom) | ||
| 1375 | (shr-ensure-newline) | ||
| 1376 | (shr-generic dom) | ||
| 1377 | (shr-ensure-newline)))) | ||
| 1374 | 1378 | ||
| 1375 | (defun shr-tag-s (dom) | 1379 | (defun shr-tag-s (dom) |
| 1376 | (shr-fontize-dom dom 'shr-strike-through)) | 1380 | (shr-fontize-dom dom 'shr-strike-through)) |