(shr-tag-li): Make <ul> prettier.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5f6ec89..20b9acf 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,6 +2,7 @@
 
        * shr.el: Add headings.
        (shr-ensure-paragraph): Actually work.
+       (shr-tag-li): Make <ul> prettier.
 
 2010-10-03  Julien Danjou  <julien@danjou.info>
 

diff --git a/lisp/shr.el b/lisp/shr.el
index 9580b4f..65a893c 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -262,6 +262,7 @@ Return a string with image data."
 (defvar shr-list-mode nil)
 
 (defun shr-tag-ul (cont)
+  (shr-ensure-paragraph)
   (let ((shr-list-mode 'ul))
     (shr-generic cont)))
 
@@ -275,7 +276,7 @@ Return a string with image data."
       (progn
        (insert (format "%d " shr-list-mode))
        (setq shr-list-mode (1+ shr-list-mode)))
-    (insert "* "))
+    (insert "*"))
   (shr-generic cont))
 
 (defun shr-tag-br (cont)