From: Richard M. Stallman <rms@gnu.org>
Date: Wed, 1 Mar 1995 08:30:54 +0000 (+0000)
Subject: (vc-do-command): Search vc-path first, not last.
X-Git-Tag: emacs-19.34~4996
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=46cd263f61b019c02411795eaff6dde79316aca1;p=emacs.git

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

diff --git a/lisp/vc.el b/lisp/vc.el
index 1950306e002..d659d19ccc4 100644
--- 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")