(rng-c-fix-escaped-newlines): Use subst-char-in-string

* lisp/nxml/rng-cmpct.el (rng-c-fix-escaped-newlines):
Use subst-char-in-string.

1 files changed, 1 insertions, 7 deletions

diff --git a/lisp/nxml/rng-cmpct.el b/lisp/nxml/rng-cmpct.el
index a699e9e3d96..ed88dfa98e9 100644
--- a/lisp/nxml/rng-cmpct.el
+++ b/lisp/nxml/rng-cmpct.el
@@ -674,13 +674,7 @@ the primary expression."
      (substring rng-c-current-token n (- n)))))
 
 (defun rng-c-fix-escaped-newlines (str)
-  (let ((pos 0))
-    (while (progn
-             (let ((n (string-match "\C-@" str pos)))
-               (and n
-                    (aset str n ?\n)
-                    (setq pos (1+ n)))))))
-  str)
+  (subst-char-in-string ?\C-@ ?\n str))
 
 (defun rng-c-parse-identifier-or-keyword ()
   (cond ((rng-c-current-token-ncname-p)