(defcustom enable-psvn t
  "*Should we enable psvn (also requires svn to be in path)"
  :group 'start
  :type 'boolean)


(condition-case var
    (if (and enable-psvn
             (= (call-process "svn" 
                              nil ; INFILE
                              nil ; BUFFER
                              t ; DISPLAY
                              "help")
                0))
        (progn
          (add-to-list 'vc-handled-backends 'SVN)
          (autoload 'svn-status "psvn" nil t nil)))
  (error (setq vc-handled-backends (remove 'SVN vc-handled-backends))))