From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 22 Sep 2020 14:02:37 +0000 (+0200)
Subject: Speed up shr-insert slightly
X-Git-Tag: emacs-28.0.90~5933
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=096f5956be3091ac222db8a15b378a9aeb237352;p=emacs.git

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.
---

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