summaryrefslogtreecommitdiff
path: root/lisp/net/shr.el
diff options
context:
space:
mode:
authorLars Magne Ingebrigtsen <larsi@gnus.org>2016-03-20 13:52:36 +0100
committerLars Magne Ingebrigtsen <larsi@gnus.org>2016-03-20 13:58:26 +0100
commit8a35f83c6c2ce602ee4d1e54c64067c851a2a43f (patch)
tree78d64a1a3308cf67ec5fa0fc6cf9c76e57532bc9 /lisp/net/shr.el
parentd8b2ce5f8a6a849e55b48699dfa0e769a4b9a3f6 (diff)
downloademacs-8a35f83c6c2ce602ee4d1e54c64067c851a2a43f.tar.gz
emacs-8a35f83c6c2ce602ee4d1e54c64067c851a2a43f.tar.bz2
emacs-8a35f83c6c2ce602ee4d1e54c64067c851a2a43f.zip
Render empty <ul><li><ul> correctly
* lisp/net/shr.el (shr-tag-ul): Render empty <ul><li><ul> correctly (bug#22964). (cherry picked from commit 4f6ea3988b66cf132c67fd0cc26d12eb9a300ba1) Backport:
Diffstat (limited to 'lisp/net/shr.el')
-rw-r--r--lisp/net/shr.el4
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 07fcbebce08..2c8ff79763f 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1480,6 +1480,10 @@ The preference is a float determined from `shr-prefer-media-type'."
(shr-ensure-paragraph)
(let ((shr-list-mode 'ul))
(shr-generic dom))
+ ;; If we end on an empty <li>, then make sure we really end on a new
+ ;; paragraph.
+ (unless (bolp)
+ (insert "\n"))
(shr-ensure-paragraph))
(defun shr-tag-ol (dom)