Mercurial > emacs
comparison lisp/vc-dispatcher.el @ 106916:401176c64983
from trunk
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Mon, 18 Jan 2010 09:58:26 +0900 |
| parents | 6427b60ed4f2 |
| children | 1918e70c8b37 04a1a4b18129 |
comparison
equal
deleted
inserted
replaced
| 106915:ef4635609200 | 106916:401176c64983 |
|---|---|
| 318 (status 0)) | 318 (status 0)) |
| 319 (when files | 319 (when files |
| 320 (setq squeezed (nconc squeezed files))) | 320 (setq squeezed (nconc squeezed files))) |
| 321 (let ((exec-path (append vc-path exec-path)) | 321 (let ((exec-path (append vc-path exec-path)) |
| 322 ;; Add vc-path to PATH for the execution of this command. | 322 ;; Add vc-path to PATH for the execution of this command. |
| 323 ;; Also, since some functions need to parse the output | |
| 324 ;; from external commands, set LC_MESSAGES to C. | |
| 323 (process-environment | 325 (process-environment |
| 324 (cons (concat "PATH=" (getenv "PATH") | 326 (cons (concat "PATH=" (getenv "PATH") |
| 325 path-separator | 327 path-separator |
| 326 (mapconcat 'identity vc-path path-separator)) | 328 (mapconcat 'identity vc-path path-separator)) |
| 327 process-environment)) | 329 (cons "LC_MESSAGES=C" |
| 330 process-environment))) | |
| 328 (w32-quote-process-args t)) | 331 (w32-quote-process-args t)) |
| 329 (if (eq okstatus 'async) | 332 (if (eq okstatus 'async) |
| 330 ;; Run asynchronously. | 333 ;; Run asynchronously. |
| 331 (let ((proc | 334 (let ((proc |
| 332 (let ((process-connection-type nil)) | 335 (let ((process-connection-type nil)) |