# HG changeset patch
# User Andr��� Spiegel <spiegel@gnu.org>
# Date 969608959 0
# Node ID 69ccb7fbb1c15ea5f58055aa036e67ad5ce29ec9
# Parent  67ea0d3e062b0ea02ca78c1e2d57f58b2ecb4be9
(vc-switch-backend): Signal an error if the file is not registered
under the new backend.

diff -r 67ea0d3e062b -r 69ccb7fbb1c1 lisp/vc.el
--- a/lisp/vc.el	Fri Sep 22 07:48:08 2000 +0000
+++ b/lisp/vc.el	Fri Sep 22 07:49:19 2000 +0000
@@ -2190,6 +2190,8 @@
    (list
     buffer-file-name
     (intern (upcase (read-string "Switch to backend: ")))))
+  (unless (vc-call-backend backend 'registered file)
+    (error "%s is not registered in %s" file backend))
   (vc-file-clearprops file)
   (vc-file-setprop file 'vc-backend backend)
   (vc-resynch-buffer file t t))