Re: tramp (2.0.8); Unable to edit remote files using Tramp

[Kai Großjohann]

Krishnakumar B <address@hidden> writes:

> tramp_executable /pkg/gnu2k1/bin/bash
> # Starting remote shell `/pkg/gnu2k1/bin/bash --norc' for tilde expansion...
> $ PS1='$ ' exec /pkg/gnu2k1/bin/bash --norc
> bash-2.05$ # Setting remote shell prompt...
> # Setting remote shell prompt...done
> $ echo hello
> # Waiting for remote `/pkg/gnu2k1/bin/bash --norc' to start up...
> # Waiting for remote `/pkg/gnu2k1/bin/bash --norc' to start up...done
> # Finding command to check if file exists
> $ ls -d / 2>/dev/null; echo tramp_exit_status $? 
> hello
>
> tramp/scp ace*
> --------------
>
> hello
> /
> tramp_exit_status 0
>
> /////

Still the same bad stuff.  Hm.  I don't see this problem; I don't
understand why it happens for you and one other guy.  What about this
patch here?

If this doesn't help, may I ask you to insert sit-for or sleep-for
statements in various places until you find out where the problem
is?  I think you can find the right spot in tramp.el quickly by
searching for the "#" strings that show up in the *debug tramp/foo*
buffer.

Index: tramp.el
===================================================================
RCS file: /cvsroot/tramp/tramp/lisp/tramp.el,v
retrieving revision 2.172
diff -u -u -r2.172 tramp.el
--- tramp.el    4 Aug 2002 13:53:24 -0000       2.172
+++ tramp.el    4 Aug 2002 20:15:22 -0000
@@ -1216,17 +1216,16 @@
 ;; output.  If you are hacking on this, note that you get *no* output
 ;; unless this spits out a complete line, including the '\n' at the
 ;; end.
-(defconst tramp-perl-file-attributes (concat
- "$f = $ARGV[0];
+(defconst tramp-perl-file-attributes "\
+$f = $ARGV[0];
 @s = lstat($f);
 if (($s[2] & 0170000) == 0120000) { $l = readlink($f); $l = \"\\\"$l\\\"\"; }
 elsif (($s[2] & 0170000) == 040000) { $l = \"t\"; }
 else { $l = \"nil\" };
-printf(\"(%s %u %u %u (%u %u) (%u %u) (%u %u) %u %u t (%u . %u) (%u %u))\\n\",
+printf(\"(%s %u %d %d (%u %u) (%u %u) (%u %u) %u %u t (%u . %u) (%u %u))\\n\",
 $l, $s[3], $s[4], $s[5], $s[8] >> 16 & 0xffff, $s[8] & 0xffff,
 $s[9] >> 16 & 0xffff, $s[9] & 0xffff, $s[10] >> 16 & 0xffff, $s[10] & 0xffff,
 $s[7], $s[2], $s[1] >> 16 & 0xffff, $s[1] & 0xffff, $s[0] >> 16 & 0xffff, 
$s[0] & 0xffff);"
- )
   "Perl script to produce output suitable for use with `file-attributes'
 on the remote file system.")
 
@@ -4456,6 +4455,7 @@
   ;;
   ;; Daniel Pittman <address@hidden>
   (sleep-for 1)
+  (erase-buffer)
   (tramp-find-file-exists-command multi-method method user host)
   (make-local-variable 'tramp-ls-command)
   (setq tramp-ls-command (tramp-find-ls-command multi-method method user host))


kai
-- 
A large number of young women don't trust men with beards.  (BFBS Radio)