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) |