# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 888447197 0
# Node ID 1ca384be7f8a5fe7b2d06f4a82993d31782d6310
# Parent  5cf1e81b6381ec575cf377bdf9bb557fb067367d
(vc-register): Update vc-buffer-backend.

diff -r 5cf1e81b6381 -r 1ca384be7f8a lisp/vc.el
--- a/lisp/vc.el	Wed Feb 25 22:50:36 1998 +0000
+++ b/lisp/vc.el	Wed Feb 25 22:53:17 1998 +0000
@@ -974,6 +974,7 @@
    (and override
 	(read-string
 	 (format "Initial version level for %s: " buffer-file-name))))
+  (setq vc-buffer-backend (vc-backend (buffer-file-name)))
   )
 
 (defun vc-resynch-window (file &optional keep noquery)