mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

Propagate remote process environment.

Browse source 
* net/tramp-sh.el (tramp-sh-handle-start-file-process)
(tramp-sh-handle-process-file): Propagate `process-environment'.

* vc/vc-hg.el (vc-hg-state): No special handling for remote files;
Tramp propagates environment variables now.
This commit is contained in:
Michael Albinus 2014-11-22 12:37:04 +01:00
parent 4fe5b7c0bb
commit cd22fd754b
3 changed files with 43 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/vc/vc-hg.el
View file

@ -211,18 +211,11 @@ highlighting the Log View buffer."
(append
(list "TERM=dumb" "LANGUAGE=C" "HGPLAIN=1")
process-environment)))
(if (file-remote-p file)
(process-file
"env" nil t nil
"HGPLAIN=1" vc-hg-program
"--config" "alias.status=status"
"--config" "defaults.status="
"status" "-A" (file-relative-name file))
(process-file
vc-hg-program nil t nil
"--config" "alias.status=status"
"--config" "defaults.status="
"status" "-A" (file-relative-name file))))
(process-file
vc-hg-program nil t nil
"--config" "alias.status=status"
"--config" "defaults.status="
"status" "-A" (file-relative-name file)))
;; Some problem happened. E.g. We can't find an `hg'
;; executable.
(error nil)))))))