# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 756615079 0
# Node ID f12548cb6e0bce8255b375b7d38da9faa27dd3d6
# Parent  b3a689b41d39f494c35d4d4032517f34029dd683
(vc-record-rename): Don't use replace-regexp.

diff -r b3a689b41d39 -r f12548cb6e0b lisp/vc.el
--- 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))
     ))