[Emacs-diffs] master ce0eee8: (rng-c-fix-escaped-newlines): Use subst-char-in-string

[Stefan Monnier]

branch: master
commit ce0eee83854a23985a476f72306c9cc04eb8747e
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    (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.
---
 lisp/nxml/rng-cmpct.el |    8 +-------
 1 files changed, 1 insertions(+), 7 deletions(-)

diff --git a/lisp/nxml/rng-cmpct.el b/lisp/nxml/rng-cmpct.el
index a699e9e..ed88dfa 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)