diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-05-13 01:31:28 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-05-13 01:31:28 +0000 |
| commit | 4c145b9e93cbf404255aaf9bfda395e8bbeb175e (patch) | |
| tree | af9608bcaba75a5e9811cf947eb11f7a82c33e83 /lisp/vc.el | |
| parent | 5066676655ae1db49d3ed90df1fb0628afaed5c9 (diff) | |
| download | emacs-4c145b9e93cbf404255aaf9bfda395e8bbeb175e.tar.gz | |
(vc-rename-file): After renaming, update VC info and modeline.
Preserve buffer-read-only.
Diffstat (limited to 'lisp/vc.el')
| -rw-r--r-- | lisp/vc.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index 1f649bf6abf..190cdc254be 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -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 |