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 | 6f2ea78cc969e9c2498b1c011a12a1f0e2a50650 (patch) | |
| tree | d40dac47fa58973180e573dd63801fc2bbf1ba80 /lisp/vc.el | |
| parent | e26b084f7d2c42b8276bc7aa6a33311a46add928 (diff) | |
| download | emacs-6f2ea78cc969e9c2498b1c011a12a1f0e2a50650.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)) )) |