Propagate remote process environment.

* 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.

1 files changed, 5 insertions, 12 deletions

diff --git a/lisp/vc/vc-hg.el b/lisp/vc/vc-hg.el
index dab2c7256ba..62d0bb5ba5f 100644
--- a/lisp/vc/vc-hg.el
+++ b/lisp/vc/vc-hg.el
@@ -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)))))))