Mercurial > emacs

diff lisp/vc.el @ 5263:f12548cb6e0b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 f8ba69b02832
children b3a78854c791
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))
     ))