master 096f595 2/2: Speed up shr-insert slightly

[Lars Ingebrigtsen]

branch: master
commit 096f5956be3091ac222db8a15b378a9aeb237352
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>

    Speed up shr-insert slightly
    
    * lisp/net/shr.el (shr-insert): Speed up regularising spaces --
    the vast majority of the spaces are already OK, so transforming
    " " to " " just takes time.
---
 lisp/net/shr.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index efa1dba..88e6917 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