Mercurial > emacs
comparison lisp/vc-git.el @ 87648:7ae99e295dfd
* vc-git.el (vc-git--call): Apply `process-file' instead of
`call-process'.
* net/tramp.el (tramp-remote-process-environment): Add "LC_CTYPE=C".
Reported by Pete Forman <pete.forman@westerngeco.com>.
(tramp-perl-encode, tramp-perl-decode): Update copyrights.
(tramp-handle-process-file): Handle the case where DESTINATION is
a consp with t as car.
(tramp-wait-for-output): We shall remove exactly what has been
find by the search.
author | Michael Albinus <michael.albinus@gmx.de> |
---|---|
date | Tue, 08 Jan 2008 20:07:21 +0000 |
parents | 77d4b0e5e5d2 |
children | 107ccd98fa12 |
comparison
equal
deleted
inserted
replaced
87647:b04073873562 | 87648:7ae99e295dfd |
---|---|
442 "A wrapper around `vc-do-command' for use in vc-git.el. | 442 "A wrapper around `vc-do-command' for use in vc-git.el. |
443 The difference to vc-do-command is that this function always invokes `git'." | 443 The difference to vc-do-command is that this function always invokes `git'." |
444 (apply 'vc-do-command buffer okstatus "git" file-or-list flags)) | 444 (apply 'vc-do-command buffer okstatus "git" file-or-list flags)) |
445 | 445 |
446 (defun vc-git--call (buffer command &rest args) | 446 (defun vc-git--call (buffer command &rest args) |
447 (apply 'call-process "git" nil buffer nil command args)) | 447 ;; We don't need to care the arguments. If there is a file name, it |
448 ;; is always a relative one. This works also for remote | |
449 ;; directories. | |
450 (apply 'process-file "git" nil buffer nil command args)) | |
448 | 451 |
449 (defun vc-git--out-ok (command &rest args) | 452 (defun vc-git--out-ok (command &rest args) |
450 (zerop (apply 'vc-git--call '(t nil) command args))) | 453 (zerop (apply 'vc-git--call '(t nil) command args))) |
451 | 454 |
452 (defun vc-git--run-command-string (file &rest args) | 455 (defun vc-git--run-command-string (file &rest args) |