/[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.195 by albinus, Fri Sep 6 20:22:39 2002 UTC revision 2.196 by kai, Fri Sep 6 20:27:49 2002 UTC
# Line 2944  This will break if COMMAND prints a newl Line 2944  This will break if COMMAND prints a newl
2944                        filename                        filename
2945                        (tramp-get-decoding-function multi-method method user host))                        (tramp-get-decoding-function multi-method method user host))
2946                       (set-buffer tmpbuf)                       (set-buffer tmpbuf)
2947                         ;; Douglas Gray Stephens <DGrayStephens@slb.com>
2948                         ;; says that we need to strip tramp_exit_status
2949                         ;; line from the output here.  Go to point-max,
2950                         ;; search backward for tramp_exit_status, delete
2951                         ;; between point and point-max if found.
2952                       (let ((coding-system-for-write 'no-conversion))                       (let ((coding-system-for-write 'no-conversion))
2953                         (funcall (tramp-get-decoding-function                         (funcall (tramp-get-decoding-function
2954                                   multi-method method user host)                                   multi-method method user host)
# Line 4189  file exists and nonzero exit status othe Line 4194  file exists and nonzero exit status othe
4194          (error "Couldn't find remote `%s' prompt." shell))          (error "Couldn't find remote `%s' prompt." shell))
4195        (tramp-message        (tramp-message
4196         9 "Setting remote shell prompt...")         9 "Setting remote shell prompt...")
4197          ;; Douglas Gray Stephens <DGrayStephens@slb.com> says that we
4198          ;; must use "\n" here, not tramp-rsh-end-of-line.  Kai left the
4199          ;; last tramp-rsh-end-of-line, Douglas wanted to replace that,
4200          ;; as well.
4201        (process-send-string nil (format "PS1='%s%s%s'; PS2=''; PS3=''%s"        (process-send-string nil (format "PS1='%s%s%s'; PS2=''; PS3=''%s"
4202                                         tramp-rsh-end-of-line                                         tramp-rsh-end-of-line
4203                                         tramp-end-of-output                                         tramp-end-of-output
4204                                         tramp-rsh-end-of-line                                         tramp-rsh-end-of-line
4205                                         tramp-rsh-end-of-line))                                         tramp-rsh-end-of-line))
4206        (tramp-wait-for-output)        (tramp-wait-for-output)
4207        (tramp-message        (tramp-message
4208         9 "Setting remote shell prompt...done")         9 "Setting remote shell prompt...done")
 ;;       (tramp-send-command multi-method method user host "echo hello")  
 ;;       (tramp-message 5 "Waiting for remote `%s' to start up..." shell)  
 ;;       (unless (tramp-wait-for-output 5)  
 ;;         (unless (tramp-wait-for-output 5)  
 ;;           (pop-to-buffer (buffer-name))  
 ;;           (error "Couldn't start remote `%s', see buffer `%s' for details"  
 ;;                  shell (buffer-name))))  
 ;;       (tramp-message 5 "Waiting for remote `%s' to start up...done" shell)  
4209        )        )
4210       (t (tramp-message 5 "Remote `%s' groks tilde expansion, good"       (t (tramp-message 5 "Remote `%s' groks tilde expansion, good"
4211                         (tramp-get-remote-sh multi-method method))))))                         (tramp-get-remote-sh multi-method method))))))
# Line 4935  to set up.  METHOD, USER and HOST specif Line 4936  to set up.  METHOD, USER and HOST specif
4936             (buffer-name)))             (buffer-name)))
4937    (erase-buffer)    (erase-buffer)
4938    (tramp-message 9 "Setting shell prompt")    (tramp-message 9 "Setting shell prompt")
4939      ;; Douglas Gray Stephens <DGrayStephens@slb.com> says that we must
4940      ;; use "\n" here, not tramp-rsh-end-of-line.
4941    (tramp-send-command    (tramp-send-command
4942     multi-method method user host     multi-method method user host
4943     (format "PS1='%s%s%s'; PS2=''; PS3=''"     (format "PS1='%s%s%s'; PS2=''; PS3=''"
4944             tramp-rsh-end-of-line             tramp-rsh-end-of-line
4945             tramp-end-of-output             tramp-end-of-output
4946             tramp-rsh-end-of-line))             tramp-rsh-end-of-line))
4947    (tramp-wait-for-output)    (tramp-wait-for-output))
 ;;   (tramp-send-command multi-method method user host "echo hello")  
 ;;   (tramp-message 9 "Waiting for remote `%s' to come up..."  
 ;;                (tramp-get-remote-sh multi-method method))  
 ;;   (unless (tramp-wait-for-output 5)  
 ;;     (unless (tramp-wait-for-output 5)  
 ;;       (pop-to-buffer (buffer-name))  
 ;;       (error "Couldn't set remote shell prompt.  See buffer `%s' for details"  
 ;;              (buffer-name))))  
 ;;   (tramp-message 7 "Waiting for remote `%s' to come up...done"  
 ;;                (tramp-get-remote-sh multi-method method))  
   )  
4948    
4949  (defun tramp-post-connection (multi-method method user host)  (defun tramp-post-connection (multi-method method user host)
4950    "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.195  
changed lines
  Added in v.2.196

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