Re: tramp: plain ftp problem

[Kin Cho]

kai.grossjohann@gmx.net (Kai Großjohann) writes:

> > The HEAD version (Tue Jun 24 10:46:11 2003) of the main branch of
> > ange-ftp-generate-root-prefixes seems to have a problem.  It
> > returns a list instead of a list of lists as expected by
> > all-completions (called by ange-ftp-file-name-all-completions).
> 
> I think I agree, but before I commit this, could you tell me how to
> reproduce the problem?

I've included the stack trace I got when I run this at home.  For
some reason ange-ftp-generate-root-prefixes doesn't get called at
all here at work.  I'm using the same customization scripts and
emacs version in both environments.

Thanks.

-kin

ange-ftp-generate-root-prefixes()
(all-completions file (ange-ftp-generate-root-prefixes))
(nconc (all-completions file (ange-ftp-generate-root-prefixes)) 
(ange-ftp-real-file-name-all-completions file ange-ftp-this-dir))
(if (ange-ftp-root-dir-p ange-ftp-this-dir) (nconc (all-completions file ...) 
(ange-ftp-real-file-name-all-completions file ange-ftp-this-dir)) 
(ange-ftp-real-file-name-all-completions file ange-ftp-this-dir))
(if (ange-ftp-ftp-name ange-ftp-this-dir) (progn 
(ange-ftp-barf-if-not-directory ange-ftp-this-dir) (setq ange-ftp-this-dir ...) 
(let* ... ...)) (if (ange-ftp-root-dir-p ange-ftp-this-dir) (nconc ... ...) 
(ange-ftp-real-file-name-all-completions file ange-ftp-this-dir)))
(let ((ange-ftp-this-dir ...)) (if (ange-ftp-ftp-name ange-ftp-this-dir) (progn 
... ... ...) (if ... ... ...)))
ange-ftp-file-name-all-completions("fo" "/")
apply(ange-ftp-file-name-all-completions ("fo" "/"))
(progn (apply fn args))
(unwind-protect (progn (apply fn args)) (set-match-data 
save-match-data-internal))
(let ((save-match-data-internal ...)) (unwind-protect (progn ...) 
(set-match-data save-match-data-internal)))
(save-match-data (apply fn args))
(if fn (save-match-data (apply fn args)) (ange-ftp-run-real-handler operation 
args))
(let ((fn ...)) (if fn (save-match-data ...) (ange-ftp-run-real-handler 
operation args)))
ange-ftp-hook-function(file-name-all-completions "fo" "/")
apply(ange-ftp-hook-function file-name-all-completions ("fo" "/"))
ange-ftp-completion-hook-function(file-name-all-completions "fo" "/")
#<subr read-file-name-internal>("/fo" "/home/kin/" t)
read-file-name-internal("/fo" "/home/kin/" t)
all-completions("/fo" read-file-name-internal "/home/kin/")
PC-do-completion(nil)
PC-complete()
call-interactively(PC-complete)