Don't insert newlines on empty tags at the beginning of the buffer.

diff --git a/lisp/shr.el b/lisp/shr.el
index 7af1945..ccb7764 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -94,7 +94,8 @@ fit these criteria."
     (shr-ensure-newline)
     (insert "\n"))
   (shr-generic cont)
     (shr-ensure-newline)
     (insert "\n"))
   (shr-generic cont)

-  (insert "\n"))
+  (unless (bobp)
+    (insert "\n")))

 
 (defun shr-tag-b (cont)
   (shr-fontize-cont cont 'bold))
 
 (defun shr-tag-b (cont)
   (shr-fontize-cont cont 'bold))