diff options
| author | Richard M. Stallman | 1995-03-01 08:30:54 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1995-03-01 08:30:54 +0000 |
| commit | 46cd263f61b019c02411795eaff6dde79316aca1 (patch) | |
| tree | 2c81512f42d1501363f67db5a4152290cbd969a1 | |
| parent | 4c52b668306c182946d1a8d1a50e3c9a1fba507c (diff) | |
| download | emacs-46cd263f61b019c02411795eaff6dde79316aca1.tar.gz emacs-46cd263f61b019c02411795eaff6dde79316aca1.zip | |
(vc-do-command): Search vc-path first, not last.
| -rw-r--r-- | lisp/vc.el | 2 |
1 files changed, 1 insertions, 1 deletions
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 | |||
| 261 | (if (string= (substring file 0 preflen) pwd) | 261 | (if (string= (substring file 0 preflen) pwd) |
| 262 | (setq file (substring file preflen)))) | 262 | (setq file (substring file preflen)))) |
| 263 | (setq squeezed (append squeezed (list file))))) | 263 | (setq squeezed (append squeezed (list file))))) |
| 264 | (let ((exec-path (if vc-path (append exec-path vc-path) exec-path)) | 264 | (let ((exec-path (append vc-path exec-path)) |
| 265 | ;; Add vc-path to PATH for the execution of this command. | 265 | ;; Add vc-path to PATH for the execution of this command. |
| 266 | (process-environment | 266 | (process-environment |
| 267 | (cons (concat "PATH=" (getenv "PATH") | 267 | (cons (concat "PATH=" (getenv "PATH") |