 (defvar svn-admin-last-repository-dir nil "The last repository url for various operations.")
 (defvar svn-last-cmd-ring (make-ring 30) "Ring that holds the last executed svn commands (for debugging purposes)")
 (defvar svn-status-cached-version-string nil)
+(defvar svn-status-get-line-information-for-file nil)
 
 (defvar svn-status-partner-buffer nil "The partner buffer for this svn related buffer")
 (make-variable-buffer-local 'svn-status-partner-buffer)

                             (overlay-get overlay 'svn-info))))
        svn-info)
    ;; different mode, means called not from the *svn-status* buffer
    (svn-status-make-line-info ".")))


(defun svn-status-get-file-list (use-marked-files)

  "Prompt the user for a svn revision number."
  (interactive)
  (read-string prompt default-value))

(defun svn-file-show-svn-ediff (arg)
  "Run ediff on the current file with a previous revision.
If ARG then prompt for revision to diff against."
  (interactive "P")
  (let ((svn-status-get-line-information-for-file t))
    (svn-status-ediff-with-revision arg)))

;; --------------------------------------------------------------------------------
;; SVN process handling
