Mercurial > emacs
comparison lisp/vc-hooks.el @ 11958:df51559ee7f9
(vc-log-info): Use path-separator.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Sat, 27 May 1995 00:36:04 +0000 |
parents | 0e58ab232517 |
children | 01cc5af0985b |
comparison
equal
deleted
inserted
replaced
11957:b95403bfc657 | 11958:df51559ee7f9 |
---|---|
235 (erase-buffer)) | 235 (erase-buffer)) |
236 (let ((exec-path (append vc-path exec-path)) | 236 (let ((exec-path (append vc-path exec-path)) |
237 ;; Add vc-path to PATH for the execution of this command. | 237 ;; Add vc-path to PATH for the execution of this command. |
238 (process-environment | 238 (process-environment |
239 (cons (concat "PATH=" (getenv "PATH") | 239 (cons (concat "PATH=" (getenv "PATH") |
240 ":" (mapconcat 'identity vc-path ":")) | 240 path-separator |
241 (mapconcat 'identity vc-path path-separator)) | |
241 process-environment))) | 242 process-environment))) |
242 (apply 'call-process command nil "*vc*" nil | 243 (apply 'call-process command nil "*vc*" nil |
243 (append flags (list (file-name-nondirectory file))))) | 244 (append flags (list (file-name-nondirectory file))))) |
244 (set-buffer (get-buffer "*vc*")) | 245 (set-buffer (get-buffer "*vc*")) |
245 (set-buffer-modified-p nil) | 246 (set-buffer-modified-p nil) |