   :type 'boolean
   :group 'psvn)
 
+(defvar svn-status-completing-read-function
+  (if svn-status-use-ido-completion 'ido-completing-read 'completing-read))
+
 ;;; experimental features
 (defvar svn-status-track-user-input nil "Track user/password queries.
 This feature is implemented via a process filter.

  (interactive
   (list
    (let ((completion-ignore-case t))
      (funcall (svn-status-completion-function) "SVN status bookmark: " svn-bookmark-list))))
  (unless bookmark
    (error "No bookmark specified"))
  (let ((directory (cdr (assoc bookmark svn-bookmark-list))))

  (define-key svn-global-keymap (kbd "v") 'svn-status-version)
  (define-key svn-global-keymap (kbd "s") 'svn-status-this-directory)
  (define-key svn-global-keymap (kbd "b") 'svn-status-via-bookmark)
  (define-key svn-global-keymap (kbd "h") 'svn-status-use-history)
  (define-key svn-global-keymap (kbd "u") 'svn-status-update-cmd)
  (define-key svn-global-keymap (kbd "l") 'svn-status-show-svn-log)
  (define-key svn-global-keymap (kbd "=") 'svn-status-show-svn-diff)
