                       (mailcap-mime-types))))
     (svn-status-property-set-property
      (svn-status-marked-files) "svn:mime-type"
-     (funcall (svn-status-completion-function) "Set svn:mime-type for the marked files: "
+     (funcall svn-status-completing-read-function "Set svn:mime-type for the marked files: "
               (mapcar (lambda (x) (cons x x)) ; for Emacs 21
                       (sort mime-types 'string<))))))
 

  (loop for item in list
        if (listp item) nconc (svn-status-flatten-list item)
        else collect item))

(defun svn-status-completion-function ()
  (if svn-status-use-ido-completion 'ido-completing-read 'completing-read))

(defun svn-status-window-line-position (w)
  "Return the window line at point for window W, or nil if W is nil."

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