;;;###autoload
(defalternative alt-version-control
  "Package to use as an interface to version control systems.

Possible packages are typically VC, PCL-CVS and VC-CC. VC is
the traditional Emacs version control package, but is an
heavyweight and can get in the way. Many people prefer the
more lightweight PCL-CVS."
  :tag "Version Control Backend")

;;;###autoload
(defun traditional-default-is-vc ()
   (when (memq 'opt-vc-vc (alternative-get-options 'alt-version-control))
     (alternative-set-default 'alt-version-control
			      'opt-vc-vc)))

;;;###autoload
(add-hook 'alternative-before-init-hook
	  'traditional-default-is-vc)

;; This should go into vc-hooks.el

;;;###autoload
(defoption alt-version-control opt-vc-vc
  "VC is the traditional version control package.

It provides support for CVS, SCCS and RCS. etc etc tec"
  :tag "VC"
  :install-function (lambda () (load "vc-hooks.el"))
  :installed-p-function
    (lambda ()
       (memq 'vc-find-file-hook 'find-file-hooks))
  :uninstall-function
    (lambda ()
      (remove-hook 'find-file-hooks 'vc-find-file-hook)
      (message
       "VC can not be fully uninstalled. Restart Emacs to undo completely")))

;; Similar things need to be put in the PCL-CVS packages