Mercurial > emacs

comparison lisp/vc.el @ 10862:b905092475a7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-do-command): Search vc-path first, not last.
author Richard M. Stallman <rms@gnu.org>
date Wed, 01 Mar 1995 08:30:54 +0000
parents 353416feba10
children 5b375fee0e1f
comparison
equal deleted inserted replaced
10861:655e3daa560c 10862:b905092475a7
259 (let* ((pwd (expand-file-name default-directory)) 259 (let* ((pwd (expand-file-name default-directory))
260 (preflen (length pwd))) 260 (preflen (length pwd)))
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")
268 ":" (mapconcat 'identity vc-path ":")) 268 ":" (mapconcat 'identity vc-path ":"))
269 process-environment))) 269 process-environment)))