changeset 5263:f12548cb6e0b

(vc-record-rename): Don't use replace-regexp.
author Richard M. Stallman <rms@gnu.org>
date Thu, 23 Dec 1993 02:51:19 +0000
parents b3a689b41d39
children a60a8979d34b
files lisp/vc.el
diffstat 1 files changed, 3 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/vc.el	Thu Dec 23 02:48:56 1993 +0000
+++ b/lisp/vc.el	Thu Dec 23 02:51:19 1993 +0000
@@ -1018,7 +1018,9 @@
   (save-excursion
     (find-file (concat (vc-backend-subdirectory-name file) "/" vc-name-assoc-file))
     (goto-char (point-min))
-    (replace-regexp (concat ":" (regexp-quote file) "$") (concat ":" newname))
+    ;; (replace-regexp (concat ":" (regexp-quote file) "$") (concat ":" newname))
+    (while (re-search-forward (concat ":" (regexp-quote file) "$") nil t)
+      (replace-match (concat ":" newname) nil nil))
     (basic-save-buffer)
     (kill-buffer (current-buffer))
     ))