bug in compiled, not plain tramp.el

[Robert J. Chassell]

Today's CVS snapshot, Sun, 2004 May 30  12:23 UTC
GNU Emacs 21.3.50.33 (i686-pc-linux-gnu, GTK+ Version 2.2.4)
starting as

     /usr/local/bin/emacs -Q

I just tried using tramp to visit a remote file on a

    Sun Microsystems Inc.   SunOS 5.9       Generic May 2002
    sun4u sparc SUNW,Ultra-2

system.  Byte compiled, the visit fails, but the visit succeeds using
the plain Emacs Lisp.  This was the command;

(find-file
 "/ssh:address@hidden:/home/bob/www/notions/mystery-of-capital.html"
 nil)

The command succeeds when I load the .el files but not when I use
today's byte compiled files.

Evaluating this enables tramp to succeed:

    (progn
      (require 'tramp)
      (setq tramp-verbose 10)
      (setq tramp-debug-buffer t)
      ;; [need passive mode for ftp with firewall]
      (setq ange-ftp-try-passive-mode t)
      ;; load the *.el files instead of the *.elc files to avoid bytecode
      (load-file "/usr/local/share/emacs/21.3.50/lisp/comint.el")
      (load-file "/usr/local/share/emacs/21.3.50/lisp/emacs-lisp/cl.el")
      (load-file "/usr/local/src/emacs/lisp/net/ange-ftp.el")
      (load-file "/usr/local/src/emacs/lisp/net/tramp-uu.el")
      (load-file "/usr/local/src/emacs/lisp/net/tramp-vc.el")
      (load-file "/usr/local/src/emacs/lisp/net/tramp.el"))

But when I start tramp without loading any .el files to override the
byte compiled files, I get the following, under two different
circumstances:

The first *Backtrace* comes *before* manually running
`byte-force-recompile' on the `/usr/local/share/emacs/21.3.50/lisp/net/'
directory.

Debugger entered--Lisp error: (invalid-function (macro . #[(variable value &rest
 body) "ÃÄÅÆDEÇ        BÈ
DC      BBF‡" [variable body value if get (quote byte-obsolete-variable) quote 
progn let] 6 ("/usr/local/share/emacs/21.3.50/lisp/net/tramp.elc" . 226649)]))
  tramp-let-maybe(47 47 
"/ssh:address@hidden:/home/bob/www/notions/mystery-of-capital.html")
  
tramp-handle-expand-file-name("/ssh:address@hidden:/home/bob/www/notions/mystery-of-capital.html"
 nil)
  apply(tramp-handle-expand-file-name 
("/ssh:address@hidden:/home/bob/www/notions/mystery-of-capital.html" nil))
  tramp-sh-file-name-handler(expand-file-name 
"/ssh:address@hidden:/home/bob/www/notions/mystery-of-capital.html" nil)
  apply(tramp-sh-file-name-handler expand-file-name 
("/ssh:address@hidden:/home/bob/www/notions/mystery-of-capital.html" nil))
  tramp-file-name-handler(expand-file-name 
"/ssh:address@hidden:/home/bob/www/notions/mystery-of-capital.html" nil)
  
expand-file-name("/ssh:address@hidden:/home/bob/www/notions/mystery-of-capital.html")
  
find-file-noselect("/ssh:address@hidden:/home/bob/www/notions/mystery-of-capital.html"
 nil nil nil)
  find-file("/ssh:address@hidden:/home/bob/www/notions/mystery-of-capital.html" 
nil)
  eval((find-file 
"/ssh:address@hidden:/home/bob/www/notions/mystery-of-capital.html" nil))
  eval-last-sexp-1(nil)
  eval-last-sexp(nil)
  call-interactively(eval-last-sexp)


Here is the second *Backtrace*, which comes after manually running
`byte-force-recompile' on the /usr/local/share/emacs/21.3.50/lisp/net/
directory.  Note that after a bootstrap build as user `bob', a root
owned Emacs 20 evaluation of

  (progn (cd "/usr/local/src/emacs/") (compile "time make install"))

does not recompile the /usr/local/share/emacs/21.3.50/lisp/net/ directory
and the error that

     /usr/local/bin/emacs -Q

is different:


Debugger entered--Lisp error: (error "Login failed")
  signal(error ("Login failed"))
  error("Login failed")
  tramp-process-actions(#<process *tramp/ssh address@hidden> nil "ssh" "bob" 
"shell.berkshire.net" ((tramp-password-prompt-regexp tramp-action-password) 
(tramp-login-prompt-regexp tramp-action-login) (shell-prompt-pattern 
tramp-action-succeed) (tramp-shell-prompt-pattern tramp-action-succeed) 
(tramp-wrong-passwd-regexp tramp-action-permission-denied) 
(tramp-yesno-prompt-regexp tramp-action-yesno) (tramp-yn-prompt-regexp 
tramp-action-yn) (tramp-terminal-prompt-regexp tramp-action-terminal) 
(tramp-process-alive-regexp tramp-action-process-alive)))
  tramp-open-connection-rsh(nil "ssh" "bob" "shell.berkshire.net")
  tramp-maybe-open-connection(nil "ssh" "bob" "shell.berkshire.net")
  tramp-send-command(nil "ssh" "bob" "shell.berkshire.net" "( test -d 
/home/bob/www/notions/mystery-of-capital.html 2>/dev/null; echo 
tramp_exit_status $? )")
  tramp-send-command-and-check(nil "ssh" "bob" "shell.berkshire.net" "test -d 
/home/bob/www/notions/mystery-of-capital.html" t)
  
tramp-handle-file-directory-p("/ssh:address@hidden:/home/bob/www/notions/mystery-of-capital.html")
  apply(tramp-handle-file-directory-p 
"/ssh:address@hidden:/home/bob/www/notions/mystery-of-capital.html")
  tramp-sh-file-name-handler(file-directory-p 
"/ssh:address@hidden:/home/bob/www/notions/mystery-of-capital.html")
  apply(tramp-sh-file-name-handler file-directory-p 
"/ssh:address@hidden:/home/bob/www/notions/mystery-of-capital.html")
  tramp-file-name-handler(file-directory-p 
"/ssh:address@hidden:/home/bob/www/notions/mystery-of-capital.html")
  
file-directory-p("/ssh:address@hidden:/home/bob/www/notions/mystery-of-capital.html")
  
find-file-noselect("/ssh:address@hidden:/home/bob/www/notions/mystery-of-capital.html"
 nil nil nil)
  find-file("/ssh:address@hidden:/home/bob/www/notions/mystery-of-capital.html" 
nil)
  eval((find-file 
"/ssh:address@hidden:/home/bob/www/notions/mystery-of-capital.html" nil))
  eval-last-sexp-1(nil)
  eval-last-sexp(nil)
  call-interactively(eval-last-sexp)



--
    Robert J. Chassell                         Rattlesnake Enterprises
    As I slowly update it,                     address@hidden
        I rewrite a "What's New" segment for   http://www.rattlesnake.com