(shr-tag-p): Collapse subsequent <p>s.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9e00c6b..61cec76 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -4,6 +4,7 @@
        (shr-ensure-paragraph): Actually work.
        (shr-tag-li): Make <ul> prettier.
        (shr-insert): Get white space at the beginning/end of elements right.
        (shr-ensure-paragraph): Actually work.
        (shr-tag-li): Make <ul> prettier.
        (shr-insert): Get white space at the beginning/end of elements right.

+       (shr-tag-p): Collapse subsequent <p>s.

 
 2010-10-03  Julien Danjou  <julien@danjou.info>
 
 
 2010-10-03  Julien Danjou  <julien@danjou.info>
 

diff --git a/lisp/shr.el b/lisp/shr.el
index 8092b1b..40f2f77 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -92,8 +92,7 @@ fit these criteria."
 (defun shr-tag-p (cont)
   (shr-ensure-paragraph)
   (shr-generic cont)
 (defun shr-tag-p (cont)
   (shr-ensure-paragraph)
   (shr-generic cont)

-  (unless (bobp)
-    (insert "\n")))
+  (shr-ensure-paragraph))

 
 (defun shr-ensure-paragraph ()
   (unless (bobp)
 
 (defun shr-ensure-paragraph ()
   (unless (bobp)