martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* lisp/nxml/rng-util.el (rng-collapse-space): Simplify.

Browse Source
This commit is contained in:
Stefan Kangas
2022-08-09 20:29:27 +02:00
parent fd4aad5697
commit caabc5a4ab
1 changed files with 2 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/nxml/rng-util.el
View File

@@ -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)