(set-visited-file-name): Kill local var vc-mode.

Make buffer writable if was read-only due to vc.

diff --git a/lisp/files.el b/lisp/files.el
index c4eb7f9..e3d3bbe 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -1184,6 +1184,11 @@ if you wish to pass an empty string as the argument."
   (kill-local-variable 'local-write-file-hooks)
   (kill-local-variable 'revert-buffer-function)
   (kill-local-variable 'backup-inhibited)
+  ;; If buffer was read-only because of version control,
+  ;; that reason is gone now, so make it writable.
+  (if vc-mode
+      (setq buffer-read-only nil))
+  (kill-local-variable 'vc-mode)
   ;; Turn off backup files for certain file names.
   ;; Since this is a permanent local, the major mode won't eliminate it.
   (and (not (funcall backup-enable-predicate buffer-file-name))