[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: tramp: plain ftp problem
From: |
Kin Cho |
Subject: |
Re: tramp: plain ftp problem |
Date: |
01 Jul 2003 09:07:44 -0700 |
User-agent: |
Gnus/5.09 (Gnus v5.9.0) Emacs/21.3 |
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)
- Re: tramp: plain ftp problem,
Kin Cho <=