procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/net/tramp-sh.el (tramp-maybe-open-connection): Fix port handling.

Browse source
This commit is contained in:
Michael Albinus 2017-06-07 16:24:31 +02:00
parent 6252386378
commit a9327a0afc
1 changed files with 1 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/net/tramp-sh.el
View file

@ -4720,7 +4720,7 @@ connection if a previous connection has died for some reason."
(l-method (tramp-file-name-method hop))
(l-user (tramp-file-name-user hop))
(l-host (tramp-file-name-host hop))
(l-port nil)
(l-port (tramp-file-name-port hop))
(login-program
(tramp-get-method-parameter hop 'tramp-login-program))
(login-args
@ -4755,12 +4755,6 @@ connection if a previous connection has died for some reason."
(when (and process-name async-args)
(setq login-args (append async-args login-args)))
;; Check for port number. Until now, there's no
;; need for handling like method, user, host.
(when (string-match tramp-host-with-port-regexp l-host)
(setq l-port (match-string 2 l-host)
l-host (match-string 1 l-host)))
;; Check, whether there is a restricted shell.
(dolist (elt tramp-restricted-shell-hosts-alist)
(when (string-match elt tramp-current-host)