         (fundamental-mode))
       (setq default-directory dir)
       (setq buffer-read-only t)
-      (let ((cmd `("svn" ,subcommand ,@args))
+      (let ((cmd `(,svn-program ,subcommand ,@args))
             proc)
         (if in-top-dir
             (setq cmd (append (list "env" (concat "SVN_DIR=" (get-svn-dir)))

      (setq buffer-read-only t)
      (erase-buffer)
      (setq default-directory dir)
      (svn-call-process "svn" diff-buf
                        "diff" "-r"
                        (format "%d:%d" (1- commit-id) commit-id)))))


(defconst svn-status-flags-col 11)
(defconst svn-status-mark-col  18)
(defconst svn-status-file-col  20)

(defgroup dsvn nil
  "Settings for dsvn."
  :group 'tools)

(defcustom svn-program "svn"
  "*The svn program to run"
  :type 'string
  :group 'dsvn)

(defun svn-call-process (program buffer &rest args)
  "Run svn and wait for it to finish.
