 (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

  (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)

        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))
