aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMichael Albinus2018-09-06 12:16:00 +0200
committerMichael Albinus2018-12-29 11:50:20 +0100
commitde7644d8d8b09fc294fe36ed2162c78a494beccb (patch)
tree0b7304b3f78379f38df579371cb152470cf97411
parent3abebeb8c3047092763f2d4a61fe7dfc659cd1bf (diff)
downloademacs-de7644d8d8b09fc294fe36ed2162c78a494beccb.tar.gz
emacs-de7644d8d8b09fc294fe36ed2162c78a494beccb.zip
Fix Bug#31704. Do not merge
* lisp/eshell/esh-proc.el (eshell-gather-process-output): Do not let `expand-file-name' prefix remote file names with MS Windows volume letter. * lisp/net/tramp.el (tramp-eshell-directory-change): Use `path-separator' as it does eshell. (Bug#31704)
-rw-r--r--lisp/eshell/esh-proc.el7
-rw-r--r--lisp/net/tramp.el2
2 files changed, 4 insertions, 5 deletions
diff --git a/lisp/eshell/esh-proc.el b/lisp/eshell/esh-proc.el
index 94401c5daa5..ee74762193d 100644
--- a/lisp/eshell/esh-proc.el
+++ b/lisp/eshell/esh-proc.el
@@ -279,11 +279,10 @@ See `eshell-needs-pipe'."
279 (let ((process-connection-type 279 (let ((process-connection-type
280 (unless (eshell-needs-pipe-p command) 280 (unless (eshell-needs-pipe-p command)
281 process-connection-type)) 281 process-connection-type))
282 (command (file-local-name command))) 282 ;; `start-process' can't deal with relative filenames.
283 (command (file-local-name (expand-file-name command))))
283 (apply 'start-file-process 284 (apply 'start-file-process
284 (file-name-nondirectory command) nil 285 (file-name-nondirectory command) nil command args)))
285 ;; `start-process' can't deal with relative filenames.
286 (append (list (expand-file-name command)) args))))
287 (eshell-record-process-object proc) 286 (eshell-record-process-object proc)
288 (set-process-buffer proc (current-buffer)) 287 (set-process-buffer proc (current-buffer))
289 (if (eshell-interactive-output-p) 288 (if (eshell-interactive-output-p)
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 5fa9f9a44d4..aa125cde6d5 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -4583,7 +4583,7 @@ Only works for Bourne-like shells."
4583 (tramp-get-connection-property 4583 (tramp-get-connection-property
4584 (tramp-get-connection-process v) "remote-path" nil) 4584 (tramp-get-connection-process v) "remote-path" nil)
4585 (tramp-get-connection-property v "remote-path" nil)) 4585 (tramp-get-connection-property v "remote-path" nil))
4586 ":")) 4586 path-separator))
4587 (getenv "PATH")))) 4587 (getenv "PATH"))))
4588 4588
4589(eval-after-load "esh-util" 4589(eval-after-load "esh-util"