martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* lisp/net/tramp-sh.el (tramp-set-remote-path): Send a warning, if

Browse Source 
$PATH exceeds PATH_MAX on the remote system.
This commit is contained in:
Michael Albinus
2018-12-19 20:29:29 +01:00
parent 5d6258518e
commit 3fa8bdca88
1 changed files with 16 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
lisp/net/tramp-sh.el
View File

@@ -3885,10 +3885,22 @@ This function expects to be in the right *tramp* buffer."
I.e., for each directory in `tramp-remote-path', it is tested
whether it exists and if so, it is added to the environment
variable PATH."
(tramp-message vec 5 "Setting $PATH environment variable")
(tramp-send-command
vec (format "PATH=%s; export PATH"
(mapconcat 'identity (tramp-get-remote-path vec) ":"))))
(let ((path (mapconcat 'identity (tramp-get-remote-path vec) ":"))
(path-max
(with-tramp-connection-property vec "path-max"
(tramp-send-command-and-read vec "getconf PATH_MAX /")))
index)
(tramp-message vec 5 "Setting $PATH environment variable")
(unless (< (length path) path-max)
(setq index path-max)
(while (not (string-equal (substring path (1- index) index) ":"))
(setq index (1- index)))
;; FIXME: Is this sufficient? Or shall we raise an error?
(tramp-message
vec 2 "$PATH environment variable is too long. Ignoring \"%s\""
(substring path index))
(setq path (substring path 0 (1- index))))
(tramp-send-command vec (format "PATH=%s; export PATH" path))))
;; ------------------------------------------------------------
;; -- Communication with external shell --