(shr-insert): Don't leave trailing spaces.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ee85479..eb5accd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -3,6 +3,7 @@
        * shr.el (shr-render-td): Use a cache for the table rendering function
        to avoid getting an exponential rendering behaviour in nested tables.
        (shr-insert): Rework the line-breaking algorithm.
+       (shr-insert): Don't leave trailing spaces.
 
 2010-10-07  Katsumi Yamaoka  <yamaoka@jpl.org>
 

diff --git a/lisp/shr.el b/lisp/shr.el
index 6124ff7..9acb557 100644 (file)
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -208,7 +208,9 @@ redirects somewhere else."
            (when (> shr-indentation 0)
              (shr-indent))
            (end-of-line)))
-       (insert " "))))))
+       (insert " "))
+      (unless (string-match "[ \t\n]\\'" text)
+       (delete-char -1))))))
 
 (defun shr-ensure-newline ()
   (unless (zerop (current-column))