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


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

(defun svn-move-filter (proc str)
