Make shr do line filling better when encountering very long words

[bpt/emacs.git] / lisp / net / shr.el

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index 77ebf47..32715b1 100644 (file)
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -475,7 +475,13 @@ size, and full-buffer size."
          (when (> shr-indentation 0)
            (shr-indent))
          (end-of-line))
-       (insert " ")))
+       (if (<= (current-column) shr-width)
+           (insert " ")
+         ;; In case we couldn't get a valid break point (because of a
+         ;; word that's longer than `shr-width'), just break anyway.
+         (insert "\n")
+         (when (> shr-indentation 0)
+           (shr-indent)))))
     (unless (string-match "[ \t\r\n ]\\'" text)
       (delete-char -1)))))