From 44c9d5be050412e3ab02c8eb0f8501a25a824602 Mon Sep 17 00:00:00 2001 From: frese Date: Tue, 31 Aug 2004 10:23:16 +0000 Subject: [PATCH] - removed opening the chat package - removed changing the terminal modes, since interact does this now --- examples/ssh-same-path.scm | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/examples/ssh-same-path.scm b/examples/ssh-same-path.scm index 4397e21..79f5682 100755 --- a/examples/ssh-same-path.scm +++ b/examples/ssh-same-path.scm @@ -1,5 +1,5 @@ #!/bin/sh -exec scsh -lel expect/load.scm -o threads -o chat -o tty-utils -o expect -o let-opt -e main -s "$0" "$@" +exec scsh -lel expect/load.scm -o threads -o tty-utils -o expect -o let-opt -e main -s "$0" "$@" !# ;; this script runs the SSH program and passes all it's arguments to @@ -54,13 +54,14 @@ exec scsh -lel expect/load.scm -o threads -o chat -o tty-utils -o expect -o let- (tsend/cr task (string-append "cd " dir)) - (let ((tty-before (tty-info user-in))) - (modify-tty (lambda (ti) (raw (echo-off ti))) user-in) + ;;(let ((tty-before (tty-info user-in))) + ;; (modify-tty (lambda (ti) (raw (echo-off ti))) user-in) ;; raw-initialize needed?? (interact task) - (set-tty-info/now user-in tty-before)))) + ;;(set-tty-info/now user-in tty-before)) + )) ;; read string without echoing it ;; optionals arguments: