Mercurial > emacs

comparison lisp/vc.el @ 15787:d5dd4b891c3e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-do-command): Bind win32-quote-process-args.
author Richard M. Stallman <rms@gnu.org>
date Fri, 26 Jul 1996 21:22:34 +0000
parents 8d23d63f1eee
children abc3b3e7ea88
comparison
equal deleted inserted replaced
15786:f2d0e8928d57 15787:d5dd4b891c3e
418 ;; Add vc-path to PATH for the execution of this command. 418 ;; Add vc-path to PATH for the execution of this command.
419 (process-environment 419 (process-environment
420 (cons (concat "PATH=" (getenv "PATH") 420 (cons (concat "PATH=" (getenv "PATH")
421 path-separator 421 path-separator
422 (mapconcat 'identity vc-path path-separator)) 422 (mapconcat 'identity vc-path path-separator))
423 process-environment))) 423 process-environment))
424 (win32-quote-process-args t))
424 (setq status (apply 'call-process command nil t nil squeezed))) 425 (setq status (apply 'call-process command nil t nil squeezed)))
425 (goto-char (point-max)) 426 (goto-char (point-max))
426 (set-buffer-modified-p nil) 427 (set-buffer-modified-p nil)
427 (forward-line -1) 428 (forward-line -1)
428 (if (or (not (integerp status)) (< okstatus status)) 429 (if (or (not (integerp status)) (< okstatus status))