From: Richard M. Stallman <rms@gnu.org>
Date: Mon, 13 May 1996 01:31:28 +0000 (+0000)
Subject: (vc-rename-file): After renaming, update VC info and modeline.
X-Git-Tag: emacs-19.34~635
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4c145b9e93cbf404255aaf9bfda395e8bbeb175e;p=emacs.git

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

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