             (svn-status-toggle-edit-cmd-flag t))
           (message "svn-run-svn %s: %S" cmdtype arglist))
         (let* ((proc-buf (get-buffer-create "*svn-process*"))
+               (svn-exe svn-status-svn-executable)
                (svn-proc))
           (when (listp (car arglist))
             (setq arglist (car arglist)))

  "*List of operations after which all user marks will be removed.
Possible values are: commit, revert.")

(defvar svn-status-short-mod-flag-p t
  "*Whether the mark for out of date files is short or long.


            (setq svn-status-mode-line-process-status (format " running %s" cmdtype))
            (svn-status-update-mode-line)
            (sit-for 0.1)
            (when svn-status-svn-environment-var-list
              (setq arglist (append svn-status-svn-environment-var-list
                                    (list svn-status-svn-executable)
                                    arglist))
              (setq svn-exe "env"))
            (if run-asynchron
                (progn
                  ;;(message "running asynchron: %s %S" svn-exe arglist)
                  (setq svn-proc (apply 'start-process "svn" proc-buf svn-exe arglist))
                  (set-process-sentinel svn-proc 'svn-process-sentinel))
              ;;(message "running synchron: %s %S" svn-exe arglist)
              (apply 'call-process svn-exe nil proc-buf nil arglist)
              (setq svn-status-mode-line-process-status "")
              (svn-status-update-mode-line)))))
    (error "You can only run one svn process at once!")))
