diff options
| author | Michael Albinus <michael.albinus@gmx.de> | 2024-01-28 10:31:45 +0100 |
|---|---|---|
| committer | Michael Albinus <michael.albinus@gmx.de> | 2024-01-28 10:31:45 +0100 |
| commit | e11c9f9c6e843779c4b69097490dd78de522a79d (patch) | |
| tree | 2787457ebba729ae8ef4748b970aa17dc2be8690 /lisp | |
| parent | b2db82c5aecd2d6f5f34941cc973177311465683 (diff) | |
| download | emacs-e11c9f9c6e843779c4b69097490dd78de522a79d.tar.gz emacs-e11c9f9c6e843779c4b69097490dd78de522a79d.tar.bz2 emacs-e11c9f9c6e843779c4b69097490dd78de522a79d.zip | |
Handle wrong login program in Tramp
* lisp/net/tramp-sh.el (tramp-maybe-open-connection): Exit remote
shell when login fails.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/net/tramp-sh.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el index 38925652376..1301cd633da 100644 --- a/lisp/net/tramp-sh.el +++ b/lisp/net/tramp-sh.el @@ -5340,7 +5340,7 @@ connection if a previous connection has died for some reason." "2>" (tramp-get-remote-null-device previous-hop)) ?l (concat remote-shell " " extra-args " -i")) ;; A restricted shell does not allow "exec". - (when r-shell '("&&" "exit" "||" "exit"))) + (when r-shell '("&&" "exit")) '("||" "exit")) " ")) ;; Send the command. |