From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 23 Dec 1993 02:51:19 +0000 (+0000)
Subject: (vc-record-rename): Don't use replace-regexp.
X-Git-Tag: emacs-19.34~10588
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7d847440c564abb8fa6d3b99508e559be8adeda0;p=emacs.git

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

diff --git a/lisp/vc.el b/lisp/vc.el
index 0d6ac098dce..357c5c274f5 100644
--- 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))
     ))