4845 |
;; a Kerberos login. |
;; a Kerberos login. |
4846 |
(sit-for 1) |
(sit-for 1) |
4847 |
(tramp-discard-garbage-erase-buffer p multi-method method user host) |
(tramp-discard-garbage-erase-buffer p multi-method method user host) |
4848 |
(process-send-string nil (format "exec %s%s" |
(process-send-string nil (format "exec env PS1='$ ' %s%s" |
4849 |
(tramp-get-remote-sh multi-method method) |
(tramp-get-remote-sh multi-method method) |
4850 |
tramp-rsh-end-of-line)) |
tramp-rsh-end-of-line)) |
4851 |
(when tramp-debug-buffer |
(when tramp-debug-buffer |
4853 |
(set-buffer (tramp-get-debug-buffer multi-method method user host)) |
(set-buffer (tramp-get-debug-buffer multi-method method user host)) |
4854 |
(goto-char (point-max)) |
(goto-char (point-max)) |
4855 |
(tramp-insert-with-face |
(tramp-insert-with-face |
4856 |
'bold (format "$ exec %s\n" (tramp-get-remote-sh multi-method method))))) |
'bold (format "$ exec env PS1='$ ' %s\n" |
4857 |
|
(tramp-get-remote-sh multi-method method))))) |
4858 |
(tramp-message 9 "Waiting 30s for remote `%s' to come up..." |
(tramp-message 9 "Waiting 30s for remote `%s' to come up..." |
4859 |
(tramp-get-remote-sh multi-method method)) |
(tramp-get-remote-sh multi-method method)) |
4860 |
(unless (tramp-wait-for-regexp |
(unless (tramp-wait-for-regexp |