From 27fab4b140c57a82fac6864bbae0fd9ae1ef363c Mon Sep 17 00:00:00 2001 From: "Basil L. Contovounesios" Date: Mon, 21 Dec 2020 22:34:33 +0000 Subject: [PATCH] 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 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) -- 2.39.5