       (setq command-s "status"
             args (cons "-v" args)))
     (setq proc (apply 'start-process "svn" (current-buffer)
-                      "svn" command-s args))
+                      svn-program command-s args))
     (if (fboundp filter-func)
         (set-process-filter proc filter-func)
       (set-process-filter proc 'svn-default-filter))

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


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