(shr-tag-li): Get <li> indentation right.
authorLars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Mon, 4 Oct 2010 12:50:47 +0000 (14:50 +0200)
committerLars Magne Ingebrigtsen <larsi@quimbies.gnus.org>
Mon, 4 Oct 2010 12:50:47 +0000 (14:50 +0200)
lisp/ChangeLog
lisp/shr.el

index b1d4198..0763577 100644 (file)
@@ -3,6 +3,7 @@
        * shr.el (shr-ensure-paragraph): Fix the non-empty line case.
        (shr-insert): Tweak line breaking.
        (shr-insert): Handle <pre> better.
+       (shr-tag-li): Get <li> indentation right.
 
 2010-10-04  Julien Danjou  <julien@danjou.info>
 
index 564234b..cca3de5 100644 (file)
@@ -289,12 +289,13 @@ Return a string with image data."
 
 (defun shr-tag-li (cont)
   (shr-ensure-newline)
-  (if (numberp shr-list-mode)
-      (progn
-       (insert (format "%d " shr-list-mode))
-       (setq shr-list-mode (1+ shr-list-mode)))
-    (insert "* "))
-  (shr-generic cont))
+  (let ((shr-indentation (+ shr-indentation 2)))
+    (if (numberp shr-list-mode)
+       (progn
+         (insert (format "%d " shr-list-mode))
+         (setq shr-list-mode (1+ shr-list-mode)))
+      (insert "* "))
+    (shr-generic cont)))
 
 (defun shr-tag-br (cont)
   (unless (bobp)