diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2016-01-25 10:56:04 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2016-01-25 10:56:04 -0500 |
| commit | ce0eee83854a23985a476f72306c9cc04eb8747e (patch) | |
| tree | 1ea0393bea967a52f24a8289a3aa6c066d341f2e | |
| parent | 58f4cb8e7d394005a0757d863ad3de9339abf531 (diff) | |
(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.
| -rw-r--r-- | 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 a699e9e3d9..ed88dfa98e 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) |