(vc-do-command): Search vc-path first, not last.

diff --git a/lisp/vc.el b/lisp/vc.el
index 1950306e002c36a39ab1d120f4bc246109e72300..d659d19ccc481ef347eba4e207e72d66eeb9b2d9 100644 (file)
--- a/lisp/vc.el
+++ b/lisp/vc.el
@@ -261,7 +261,7 @@ the master name of FILE if LAST is 'MASTER, or the workfile of FILE if LAST is
            (if (string= (substring file 0 preflen) pwd)
                (setq file (substring file preflen))))
          (setq squeezed (append squeezed (list file)))))
-    (let ((exec-path (if vc-path (append exec-path vc-path) exec-path))
+    (let ((exec-path (append vc-path exec-path))
          ;; Add vc-path to PATH for the execution of this command.
          (process-environment
           (cons (concat "PATH=" (getenv "PATH")