diff options
| author | Michael Albinus | 2008-01-08 20:07:21 +0000 |
|---|---|---|
| committer | Michael Albinus | 2008-01-08 20:07:21 +0000 |
| commit | 0664ff722152f34c2e87e9e644bbab401530b9d4 (patch) | |
| tree | 80c0e1fde3a1bea6a12741ca4d616e163f13e74b /lisp/vc-git.el | |
| parent | d82cf70b7fe93c7928a59a3c6ae8d2680237f60d (diff) | |
| download | emacs-0664ff722152f34c2e87e9e644bbab401530b9d4.tar.gz emacs-0664ff722152f34c2e87e9e644bbab401530b9d4.zip | |
* 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.
Diffstat (limited to 'lisp/vc-git.el')
| -rw-r--r-- | lisp/vc-git.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/vc-git.el b/lisp/vc-git.el index c73c458fcb7..7f3a39d55ab 100644 --- a/lisp/vc-git.el +++ b/lisp/vc-git.el | |||
| @@ -444,7 +444,10 @@ 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))) |