[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master caabc5a4ab 5/5: * lisp/nxml/rng-util.el (rng-collapse-space): Sim
From: |
Stefan Kangas |
Subject: |
master caabc5a4ab 5/5: * lisp/nxml/rng-util.el (rng-collapse-space): Simplify. |
Date: |
Tue, 9 Aug 2022 15:58:10 -0400 (EDT) |
branch: master
commit caabc5a4ab584e00417d3d1f9a2bf0ee9052b092
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
* lisp/nxml/rng-util.el (rng-collapse-space): Simplify.
---
lisp/nxml/rng-util.el | 9 ++-------
1 file changed, 2 insertions(+), 7 deletions(-)
diff --git a/lisp/nxml/rng-util.el b/lisp/nxml/rng-util.el
index da51e81dbe..70951f35d5 100644
--- a/lisp/nxml/rng-util.el
+++ b/lisp/nxml/rng-util.el
@@ -72,13 +72,8 @@ LIST is not modified."
t))
(defun rng-collapse-space (string)
- (setq string
- (replace-regexp-in-string "[ \t\r\n]+" " " string t t))
- (when (string-match "\\` " string)
- (setq string (substring string 1)))
- (when (string-match " \\'" string)
- (setq string (substring string 0 -1)))
- string)
+ (string-trim
+ (replace-regexp-in-string "[ \t\r\n]+" " " string t t)))
(define-error 'rng-error nil)