diff options
| author | Basil L. Contovounesios <contovob@tcd.ie> | 2020-12-21 22:34:33 +0000 |
|---|---|---|
| committer | Basil L. Contovounesios <contovob@tcd.ie> | 2020-12-21 22:36:55 +0000 |
| commit | 27fab4b140c57a82fac6864bbae0fd9ae1ef363c (patch) | |
| tree | a0f1249491be08deb49c35ff2f890294c5b7e155 /lisp | |
| parent | 7e86d3bb9b61e3e2c2389e66370df037bd8a8f43 (diff) | |
| download | emacs-27fab4b140c57a82fac6864bbae0fd9ae1ef363c.tar.gz emacs-27fab4b140c57a82fac6864bbae0fd9ae1ef363c.tar.bz2 emacs-27fab4b140c57a82fac6864bbae0fd9ae1ef363c.zip | |
Tiny string-clean-whitespace simplification
* lisp/emacs-lisp/subr-x.el (string-clean-whitespace): Streamline by
treating replacement string as being literal and having fixed case.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emacs-lisp/subr-x.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/subr-x.el b/lisp/emacs-lisp/subr-x.el index 1c8e1d6293f..aa39fc1538f 100644 --- a/lisp/emacs-lisp/subr-x.el +++ b/lisp/emacs-lisp/subr-x.el @@ -270,7 +270,7 @@ All sequences of whitespaces in STRING are collapsed into a single space character, and leading/trailing whitespace is removed." (let ((blank "[[:blank:]\n]+")) - (string-trim (replace-regexp-in-string blank " " string) + (string-trim (replace-regexp-in-string blank " " string t t) blank blank))) (defun string-fill (string length) |