[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 27fab4b: Tiny string-clean-whitespace simplification
From: |
Basil L. Contovounesios |
Subject: |
master 27fab4b: Tiny string-clean-whitespace simplification |
Date: |
Mon, 21 Dec 2020 17:50:13 -0500 (EST) |
branch: master
commit 27fab4b140c57a82fac6864bbae0fd9ae1ef363c
Author: Basil L. Contovounesios <contovob@tcd.ie>
Commit: Basil L. Contovounesios <contovob@tcd.ie>
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.
---
lisp/emacs-lisp/subr-x.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/lisp/emacs-lisp/subr-x.el b/lisp/emacs-lisp/subr-x.el
index 1c8e1d6..aa39fc1 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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 27fab4b: Tiny string-clean-whitespace simplification,
Basil L. Contovounesios <=