         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."
   (svn-status-message 3 "About to count lines; selected window is %s" (selected-window))

  (if (eq arg 0)
      (setq svn-status-base-info nil)
    (let ((svn-process-buffer-name "*svn-info-output*"))
      (svn-run nil t 'parse-info "info" ".")
      (svn-status-parse-info-result)))
  (unless (eq arg t)

(eval-when-compile (require 'dired))
(eval-when-compile (require 'ediff-util))
(eval-when-compile (require 'elp))
(eval-when-compile (require 'pp))

(condition-case nil
    (progn
