diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2020-09-22 16:02:37 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2020-09-22 16:02:42 +0200 |
| commit | 096f5956be3091ac222db8a15b378a9aeb237352 (patch) | |
| tree | b87edc63e333ae702b26451cd9c82e3337bb7b96 /lisp/net/shr.el | |
| parent | 69b5d5431157fdb6e83ca94b9e48cef0586ec902 (diff) | |
| download | emacs-096f5956be3091ac222db8a15b378a9aeb237352.tar.gz emacs-096f5956be3091ac222db8a15b378a9aeb237352.tar.bz2 emacs-096f5956be3091ac222db8a15b378a9aeb237352.zip | |
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.
Diffstat (limited to 'lisp/net/shr.el')
| -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 |