(vc-rename-file): After renaming, update VC info and modeline.

Preserve buffer-read-only.
This commit is contained in:
Richard M. Stallman 1996-05-13 01:31:28 +00:00
parent 5066676655
commit 4c145b9e93

View file

@ -1727,7 +1727,10 @@ A prefix argument means do not revert the buffer afterwards."
(if oldbuf
(save-excursion
(set-buffer oldbuf)
(set-visited-file-name new)
(let ((buffer-read-only buffer-read-only))
(set-visited-file-name new))
(vc-backend new)
(vc-mode-line new)
(set-buffer-modified-p nil))))
;; This had FILE, I changed it to OLD. -- rms.
(vc-backend-dispatch old