(vc-record-rename): Don't use replace-regexp.

diff --git a/lisp/vc.el b/lisp/vc.el
index 0d6ac098dce96038791a5f61ebc711e9a5b43645..357c5c274f50b40d87eecac550941860b7e25054 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -1018,7 +1018,9 @@ on a buffer attached to the file named in the current Dired buffer line."
   (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))
     ))