aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/vc-git.el
diff options
context:
space:
mode:
authorMichael Albinus2008-01-08 20:07:21 +0000
committerMichael Albinus2008-01-08 20:07:21 +0000
commit0664ff722152f34c2e87e9e644bbab401530b9d4 (patch)
tree80c0e1fde3a1bea6a12741ca4d616e163f13e74b /lisp/vc-git.el
parentd82cf70b7fe93c7928a59a3c6ae8d2680237f60d (diff)
downloademacs-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.el5
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)))