 Run `svn-status' on the selected bookmark."
   (interactive
    (list
-    (let ((completion-ignore-case t)
-          (completion-function (if svn-status-use-ido-completion 'ido-completing-read 'completing-read)))
-      (funcall completion-function "SVN status bookmark: " svn-bookmark-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))))

  (unless (string= (buffer-name) svn-status-buffer-name)
    (set-buffer svn-status-buffer-name))
  (svn-status-mode)
  (let ((st-info svn-status-info)
        (buffer-read-only nil)
        (start-pos)

  (interactive)
  (unless prompt
    (setq prompt "Select branch: "))
  (let* ((branch (funcall (svn-status-completion-function) prompt svn-status-branch-list))
         (directory)
         (base-url))
    (when (string-match "#\\(1#\\)?\\(.+\\)" branch)
