                          "BASE"
                        (if (svn-status-line-info->update-available (car fl)) "HEAD" "BASE")))))
     (while fl
-      (svn-run-svn nil clear-buf 'diff "diff" "-r" revision (svn-status-line-info->filename (car fl)))
+      (svn-run-svn nil clear-buf 'diff "diff" svn-status-default-diff-arguments
+                   "-r" revision (svn-status-line-info->filename (car fl)))
       (setq clear-buf nil)
       (setq fl (cdr fl))))
   (svn-status-diff-mode))

inside loops."
  (if (<= level svn-status-debug-level)
      (apply 'message args)))

(defvar svn-status-display-new-status-buffer nil)
;;;###autoload

  "*Arguments to pass to svn log.
\(used in `svn-status-show-svn-log'; override these by giving prefixes\).")

(defvar svn-status-default-diff-arguments nil
  "*A list of arguments that is passed to the svn diff command.
  If you'd like to supress whitespace changes use the following value:
  '(\"--diff-cmd\" \"diff\" \"-x\" \"-wbBu\")")

(defvar svn-trac-project-root nil "Path for an eventual existing trac issue tracker.")

(defvar svn-status-module-name nil "A nice short name for the actual project.")
