              svn-status-get-specific-revision-file-info)))
 
 
-(defun svn-status-ediff-with-revision ()
+(defun svn-status-ediff-with-revision (arg)
   "Run ediff on the actual file with a previous revision."
-  (interactive)
-  (svn-status-get-specific-revision t)
+  (interactive "P")
+  (svn-status-get-specific-revision t arg)
   (ediff-files
    (cdr (car svn-status-get-specific-revision-file-info))
    (car (car svn-status-get-specific-revision-file-info))))

  (interactive)
  ;(message "show log info for: %S" (svn-status-marked-files))
  (svn-status-create-arg-file svn-status-temp-arg-file "" (svn-status-marked-files) "")
  (svn-run-svn t t 'log "log" "--targets" svn-status-temp-arg-file))

(defun svn-status-info ()
  (interactive)
  (svn-status-create-arg-file svn-status-temp-arg-file "" (svn-status-marked-files) "")
  (svn-run-svn t t 'info "info" "--targets" svn-status-temp-arg-file))

(defun svn-status-show-svn-diff ()
  (interactive)
  (let ((fl (svn-status-marked-files))
        (clear-buf t))
    (while fl
      (svn-run-svn nil clear-buf 'diff "diff" (svn-status-line-info->filename (car fl)))
      (setq clear-buf nil)
      (setq fl (cdr fl))))
  (svn-status-show-process-buffer-internal t)

                 "-F" (concat svn-status-temp-dir "svn-prop-edit.txt")))
  (set-window-configuration svn-status-pre-propedit-window-configuration))

(defun svn-prop-edit-svn-diff (arg)
  (interactive "P")
  (set-buffer "*svn-status*")
  (svn-status-show-svn-diff arg))

(defun svn-prop-edit-svn-log ()
  (interactive)
