     (setq revision (svn-status-read-revision-string
                     "Diff with files for version: " "PREV")))
 
+  (setq svn-status-last-diff-options (list line-infos recursive revision))
+
   (let ((clear-buf t)
         (beginning nil))
     (dolist (line-info line-infos)

  (let ((diff-mode-shared-map (copy-keymap svn-status-diff-mode-map))
        major-mode mode-name)
    (diff-mode)))

(defun svn-status-show-process-buffer ()
  "Show the content of the *svn-process* buffer"


(when (not svn-status-diff-mode-map)
  (setq svn-status-diff-mode-map (copy-keymap diff-mode-shared-map))
  (define-key svn-status-diff-mode-map [?g] 'svn-status-diff-update)
  (define-key svn-status-diff-mode-map [?s] 'svn-status-pop-to-status-buffer)
  (define-key svn-status-diff-mode-map [?w] 'svn-status-diff-save-current-defun-as-kill))

(defvar svn-global-trac-map ()
  "Subkeymap used in `svn-global-keymap' for trac issue tracker commands.")
