Mercurial > emacs
changeset 15227:207c2c343394
(vc-rename-file): After renaming, update VC info and modeline.
Preserve buffer-read-only.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 13 May 1996 01:31:28 +0000 |
| parents | 31a30cc1d61a |
| children | ae9888a75348 |
| files | lisp/vc.el |
| diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc.el Mon May 13 01:28:24 1996 +0000 +++ b/lisp/vc.el Mon May 13 01:31:28 1996 +0000 @@ -1727,7 +1727,10 @@ (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