/[tramp]/tramp/lisp/tramp.el
ViewVC logotype

Diff of /tramp/lisp/tramp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2.175 by kai, Tue Aug 6 10:32:27 2002 UTC revision 2.176 by kai, Wed Aug 7 11:58:10 2002 UTC
# Line 3531  file exists and nonzero exit status othe Line 3531  file exists and nonzero exit status othe
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    
# Line 3567  otherwise." Line 3568  otherwise."
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))
# Line 4420  to set up.  METHOD, USER and HOST specif Line 4422  to set up.  METHOD, USER and HOST specif
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.

Legend:
Removed from v.2.175  
changed lines
  Added in v.2.176

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26