3531 |
(tramp-wait-for-output) |
(tramp-wait-for-output) |
3532 |
(tramp-message |
(tramp-message |
3533 |
10 "Setting remote shell prompt...done") |
10 "Setting remote shell prompt...done") |
3534 |
(tramp-send-command multi-method method user host "echo hello") |
;; (tramp-send-command multi-method method user host "echo hello") |
3535 |
(tramp-message 5 "Waiting for remote `%s' to start up..." shell) |
;; (tramp-message 5 "Waiting for remote `%s' to start up..." shell) |
3536 |
(unless (tramp-wait-for-output 5) |
;; (unless (tramp-wait-for-output 5) |
3537 |
(unless (tramp-wait-for-output 5) |
;; (unless (tramp-wait-for-output 5) |
3538 |
(pop-to-buffer (buffer-name)) |
;; (pop-to-buffer (buffer-name)) |
3539 |
(error "Couldn't start remote `%s', see buffer `%s' for details" |
;; (error "Couldn't start remote `%s', see buffer `%s' for details" |
3540 |
shell (buffer-name)))) |
;; shell (buffer-name)))) |
3541 |
(tramp-message 5 "Waiting for remote `%s' to start up...done" shell)) |
;; (tramp-message 5 "Waiting for remote `%s' to start up...done" shell) |
3542 |
|
) |
3543 |
(t (tramp-message 5 "Remote `%s' groks tilde expansion, good" |
(t (tramp-message 5 "Remote `%s' groks tilde expansion, good" |
3544 |
(tramp-get-remote-sh multi-method method)))))) |
(tramp-get-remote-sh multi-method method)))))) |
3545 |
|
|
3568 |
"Checks whether the given `ls' executable in one of the dirs groks `-n'. |
"Checks whether the given `ls' executable in one of the dirs groks `-n'. |
3569 |
Returns nil if none was found, else the command is returned." |
Returns nil if none was found, else the command is returned." |
3570 |
(let ((dl dirlist) |
(let ((dl dirlist) |
3571 |
(result nil)) |
(result nil) |
3572 |
|
(directory-sep-char ?/)) ;for XEmacs |
3573 |
;; It would be better to use the CL function `find', but |
;; It would be better to use the CL function `find', but |
3574 |
;; we don't want run-time dependencies on CL. |
;; we don't want run-time dependencies on CL. |
3575 |
(while (and dl (not result)) |
(while (and dl (not result)) |
4422 |
tramp-end-of-output |
tramp-end-of-output |
4423 |
tramp-rsh-end-of-line)) |
tramp-rsh-end-of-line)) |
4424 |
(tramp-wait-for-output) |
(tramp-wait-for-output) |
4425 |
(tramp-send-command multi-method method user host "echo hello") |
;; (tramp-send-command multi-method method user host "echo hello") |
4426 |
(tramp-message 9 "Waiting for remote `%s' to come up..." |
;; (tramp-message 9 "Waiting for remote `%s' to come up..." |
4427 |
(tramp-get-remote-sh multi-method method)) |
;; (tramp-get-remote-sh multi-method method)) |
4428 |
(unless (tramp-wait-for-output 5) |
;; (unless (tramp-wait-for-output 5) |
4429 |
(unless (tramp-wait-for-output 5) |
;; (unless (tramp-wait-for-output 5) |
4430 |
(pop-to-buffer (buffer-name)) |
;; (pop-to-buffer (buffer-name)) |
4431 |
(error "Couldn't set remote shell prompt. See buffer `%s' for details" |
;; (error "Couldn't set remote shell prompt. See buffer `%s' for details" |
4432 |
(buffer-name)))) |
;; (buffer-name)))) |
4433 |
(tramp-message 7 "Waiting for remote `%s' to come up...done" |
;; (tramp-message 7 "Waiting for remote `%s' to come up...done" |
4434 |
(tramp-get-remote-sh multi-method method))) |
;; (tramp-get-remote-sh multi-method method)) |
4435 |
|
) |
4436 |
|
|
4437 |
(defun tramp-post-connection (multi-method method user host) |
(defun tramp-post-connection (multi-method method user host) |
4438 |
"Prepare a remote shell before being able to work on it. |
"Prepare a remote shell before being able to work on it. |