# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 831951088 0
# Node ID 207c2c343394eb2cd7b1f98246086c5bfa4a0121
# Parent  31a30cc1d61a6d816616f9b259e4708de17ba445
(vc-rename-file): After renaming, update VC info and modeline.
Preserve buffer-read-only.

diff -r 31a30cc1d61a -r 207c2c343394 lisp/vc.el
--- 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