Mercurial > emacs
comparison lisp/vc.el @ 16590:a0cfcb9f8033
Use w32 instead of ms-windows for window-system symbol
| author | Geoff Voelker <voelker@cs.washington.edu> |
|---|---|
| date | Tue, 19 Nov 1996 06:59:17 +0000 |
| parents | 5e1ecf96072f |
| children | 612fe5713ede |
comparison
equal
deleted
inserted
replaced
| 16589:ec300a10e407 | 16590:a0cfcb9f8033 |
|---|---|
| 422 (process-environment | 422 (process-environment |
| 423 (cons (concat "PATH=" (getenv "PATH") | 423 (cons (concat "PATH=" (getenv "PATH") |
| 424 path-separator | 424 path-separator |
| 425 (mapconcat 'identity vc-path path-separator)) | 425 (mapconcat 'identity vc-path path-separator)) |
| 426 process-environment)) | 426 process-environment)) |
| 427 (win32-quote-process-args t)) | 427 (w32-quote-process-args t)) |
| 428 (setq status (apply 'call-process command nil t nil squeezed))) | 428 (setq status (apply 'call-process command nil t nil squeezed))) |
| 429 (goto-char (point-max)) | 429 (goto-char (point-max)) |
| 430 (set-buffer-modified-p nil) | 430 (set-buffer-modified-p nil) |
| 431 (forward-line -1) | 431 (forward-line -1) |
| 432 (if (or (not (integerp status)) (< okstatus status)) | 432 (if (or (not (integerp status)) (< okstatus status)) |