diff options
| author | Richard M. Stallman <rms@gnu.org> | 1993-12-23 02:51:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1993-12-23 02:51:19 +0000 |
| commit | 7d847440c564abb8fa6d3b99508e559be8adeda0 (patch) | |
| tree | f4e2e887885bd83491d2ab0fccbdea3ad8cfdb3f /lisp/vc.el | |
| parent | 64db24613f8d8bbc1a3b976f6c84a4b67806cc37 (diff) | |
| download | emacs-7d847440c564abb8fa6d3b99508e559be8adeda0.tar.gz | |
(vc-record-rename): Don't use replace-regexp.
Diffstat (limited to 'lisp/vc.el')
| -rw-r--r-- | lisp/vc.el | 4 |
1 files changed, 3 insertions, 1 deletions
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)) )) |