diff options
Diffstat (limited to 'lisp/net')
| -rw-r--r-- | lisp/net/shr.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/net/shr.el b/lisp/net/shr.el index efa1dba9536..88e691752ab 100644 --- a/lisp/net/shr.el +++ b/lisp/net/shr.el @@ -678,8 +678,11 @@ size, and full-buffer size." (goto-char start) (when (looking-at "[ \t\n\r]+") (replace-match "" t t)) - (while (re-search-forward "[ \t\n\r]+" nil t) + (while (re-search-forward "[\t\n\r]+" nil t) (replace-match " " t t)) + (goto-char start) + (while (re-search-forward " +" nil t) + (replace-match " " t t)) (shr--translate-insertion-chars) (goto-char (point-max))) ;; We may have removed everything we inserted if it was just |