diff options
| author | Richard M. Stallman | 1993-12-23 02:51:19 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1993-12-23 02:51:19 +0000 |
| commit | 7d847440c564abb8fa6d3b99508e559be8adeda0 (patch) | |
| tree | f4e2e887885bd83491d2ab0fccbdea3ad8cfdb3f | |
| parent | 64db24613f8d8bbc1a3b976f6c84a4b67806cc37 (diff) | |
| download | emacs-7d847440c564abb8fa6d3b99508e559be8adeda0.tar.gz emacs-7d847440c564abb8fa6d3b99508e559be8adeda0.zip | |
(vc-record-rename): Don't use replace-regexp.
| -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." | |||
| 1018 | (save-excursion | 1018 | (save-excursion |
| 1019 | (find-file (concat (vc-backend-subdirectory-name file) "/" vc-name-assoc-file)) | 1019 | (find-file (concat (vc-backend-subdirectory-name file) "/" vc-name-assoc-file)) |
| 1020 | (goto-char (point-min)) | 1020 | (goto-char (point-min)) |
| 1021 | (replace-regexp (concat ":" (regexp-quote file) "$") (concat ":" newname)) | 1021 | ;; (replace-regexp (concat ":" (regexp-quote file) "$") (concat ":" newname)) |
| 1022 | (while (re-search-forward (concat ":" (regexp-quote file) "$") nil t) | ||
| 1023 | (replace-match (concat ":" newname) nil nil)) | ||
| 1022 | (basic-save-buffer) | 1024 | (basic-save-buffer) |
| 1023 | (kill-buffer (current-buffer)) | 1025 | (kill-buffer (current-buffer)) |
| 1024 | )) | 1026 | )) |