 (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.

    (when (file-directory-p (car files))
      (error "Can only move files"))
    (let* ((src (car files))
           (dst (read-file-name "Move to: "
                                (file-name-directory src)
                                (file-name-nondirectory src)
                                nil
                                (file-name-nondirectory src))))
      (svn-run 'move (list src dst) "Moving file"))))

(defun svn-move-filter (proc str)

    (with-current-buffer buf
      (erase-buffer)
      (setq default-directory dir))
    (apply 'call-process svn-program nil buf nil (symbol-name command) args)
    buf))

(defun svn-output-filter (proc str)
