diff options
| author | Michael Albinus | 2018-09-06 12:16:00 +0200 |
|---|---|---|
| committer | Michael Albinus | 2018-12-29 11:50:20 +0100 |
| commit | de7644d8d8b09fc294fe36ed2162c78a494beccb (patch) | |
| tree | 0b7304b3f78379f38df579371cb152470cf97411 | |
| parent | 3abebeb8c3047092763f2d4a61fe7dfc659cd1bf (diff) | |
| download | emacs-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.el | 7 | ||||
| -rw-r--r-- | lisp/net/tramp.el | 2 |
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" |