Make rng-collapse-space obsolete

* lisp/nxml/rng-util.el (rng-collapse-space): Make obsolete in favor
of 'string-clean-whitespace'.  Update callers.
Suggested by Lars Ingebrigtsen <larsi@gnus.org>.

diff --git a/lisp/nxml/rng-dt.el b/lisp/nxml/rng-dt.el
index b88653f79ec13a20b2f88529f15c50134b79cee7..0523e8132bfd85d1216b9224d67706026aeb043c 100644 (file)
--- a/lisp/nxml/rng-dt.el
+++ b/lisp/nxml/rng-dt.el
@@ -52,7 +52,7 @@ a datatype library.")
           (rng-dt-error "The string datatype does not take any parameters")))
        ((eq name 'token)
         (if (null params)
-            '(t rng-collapse-space)
+             '(t string-clean-whitespace)
           (rng-dt-error "The token datatype does not take any parameters")))
        (t
         (rng-dt-error "There is no built-in datatype %s" name))))

diff --git a/lisp/nxml/rng-loc.el b/lisp/nxml/rng-loc.el
index 302aa05176fffc5c133ddc74da0f52e2dbc7e086..40332aacd509e0a9ac940fffb28a70c59da64a3f 100644 (file)
--- a/lisp/nxml/rng-loc.el
+++ b/lisp/nxml/rng-loc.el
@@ -354,7 +354,7 @@ NS is t if the document has a non-nil, but not otherwise known namespace."
   (or (cdr (assq 'uri props))
       (let ((type-id (cdr (assq 'typeId props))))
        (and type-id
-            (cons (rng-collapse-space type-id) nil)))))
+             (cons (string-clean-whitespace type-id) nil)))))
 
 (defun rng-possible-type-ids-using (file type-ids)
   (let ((rules (rng-get-parsed-schema-locating-file file))
@@ -366,7 +366,7 @@ NS is t if the document has a non-nil, but not otherwise known namespace."
             (let ((id (cdr (assq 'id (cdr rule)))))
               (when id
                 (setq type-ids
-                      (cons (rng-collapse-space id)
+                       (cons (string-clean-whitespace id)
                             type-ids)))))
            ((eq (car rule) 'include)
             (let ((uri (cdr (assq 'rules (cdr rule)))))
@@ -390,7 +390,7 @@ or nil."
       (cond ((and (eq (car rule) 'typeId)
                  (let ((id (assq 'id (cdr rule))))
                    (and id
-                        (string= (rng-collapse-space (cdr id)) type-id))))
+                         (string= (string-clean-whitespace (cdr id)) type-id))))
             (setq schema (rng-match-default-rule (cdr rule))))
            ((eq (car rule) 'include)
             (let ((uri (cdr (assq 'rules (cdr rule)))))

diff --git a/lisp/nxml/rng-util.el b/lisp/nxml/rng-util.el
index 70951f35d5d04f3c0e567394ebf64ffb64fd6284..7ac6db25f43b8d1241f4a6147500e3d9300346df 100644 (file)
--- a/lisp/nxml/rng-util.el
+++ b/lisp/nxml/rng-util.el
@@ -71,10 +71,6 @@ LIST is not modified."
                            s
                            t))
 
-(defun rng-collapse-space (string)
-  (string-trim
-   (replace-regexp-in-string "[ \t\r\n]+" " " string t t)))
-
 (define-error 'rng-error nil)
 
 (defun rng-uniquify-eq (list)
@@ -83,6 +79,7 @@ LIST is not modified."
 
 (define-obsolete-function-alias 'rng-uniquify-equal #'seq-uniq "28.1")
 (define-obsolete-function-alias 'rng-blank-p #'string-blank-p "29.1")
+(define-obsolete-function-alias 'rng-collapse-space #'string-clean-whitespace "29.1")
 
 (provide 'rng-util)