                  "-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 ()
-  (interactive)
+(defun svn-prop-edit-svn-diff (arg)
+  (interactive "P")
   (set-buffer "*svn-status*")
-  (svn-status-show-svn-diff))
+  (svn-status-show-svn-diff arg))
 
 (defun svn-prop-edit-svn-log ()
   (interactive)

;; Getting older revisions
;; --------------------------------------------------------------------------------

(defun svn-status-get-specific-revision (&optional only-actual-file)
  "Retrieve older revisions.
The older revisions are stored in backup files named F.~REVISION~."
  (interactive)
  (let* ((file-names (if only-actual-file
                         (list (svn-status-line-info->filename (svn-status-get-line-information)))
                       (svn-status-marked-file-names)))
         (revision (svn-status-read-revision-string "Get files for version: " "COMMITTED"))
         (file-name)
         (file-name-with-revision))
    (message "Getting revision %s for %S" revision file-names)

             svn-status-get-specific-revision-file-info)))


(defun svn-status-ediff-with-revision (arg)
  "Run ediff on the actual file with a previous revision."
  (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))))
