From 7d847440c564abb8fa6d3b99508e559be8adeda0 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 23 Dec 1993 02:51:19 +0000 Subject: [PATCH] (vc-record-rename): Don't use replace-regexp. --- lisp/vc.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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)) )) -- 2.39.5