From 4c145b9e93cbf404255aaf9bfda395e8bbeb175e Mon Sep 17 00:00:00 2001
From: "Richard M. Stallman" <rms@gnu.org>
Date: Mon, 13 May 1996 01:31:28 +0000
Subject: (vc-rename-file): After renaming, update VC info and modeline.
 Preserve buffer-read-only.

---
 lisp/vc.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'lisp/vc.el')

diff --git a/lisp/vc.el b/lisp/vc.el
index 1f649bf6ab..190cdc254b 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
-- 
cgit v1.2.3