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

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

(defun svn-run-for-stdout (command args)

            args (cons "-v" args)))
    (unless (memq command svn-noninteractive-blacklist)
      (setq args (cons "--non-interactive" args)))
    (setq proc (svn-start-svn-process (current-buffer) (cons command-s args)))
    (if (fboundp filter-func)
        (set-process-filter proc filter-func)
      (set-process-filter proc 'svn-default-filter))
