I think someone else mentioned a similar problem a while back but I
don't have that message or an indicator as to whether it was resolved or
not...
It looks as if trying to go up the tree looking for a prj.el file
combined with ange-ftp may be broken. It happens to me on Linux as well.
Creating a prj.el file worked around it for me.
john
[EMAIL PROTECTED] wrote:
>
> Sorry to be such a chatterbot. I just thought you
> might be interested to know that I was able to generate
> a backtrace by calling jde-mode directly, rather than
> letting the normal-mode function do it for me. It's way
> too long to post the whole thing. Note how it keeps
> appending "../" onto the path...
>
> Signaling: (error "Variable binding depth exceeds max-specpdl-size")
> ange-ftp-run-real-handler(expand-file-name ("/"))
> ange-ftp-real-expand-file-name("/")
> ange-ftp-canonize-filename("/pohl@webdev:/")
> ange-ftp-expand-file-name("/pohl@webdev:/" nil)
> apply(ange-ftp-expand-file-name ("/pohl@webdev:/" nil))
> ange-ftp-hook-function(expand-file-name "/pohl@webdev:/" nil)
> expand-file-name("/pohl@webdev:/")
> ange-ftp-file-directory-p("/pohl@webdev:/")
> apply(ange-ftp-file-directory-p "/pohl@webdev:/")
> ange-ftp-hook-function(file-directory-p "/pohl@webdev:/")
> file-directory-p("/pohl@webdev:/")
> ange-ftp-barf-if-not-directory("/pohl@webdev:/")
>
> ange-ftp-directory-files("/pohl@webdev:/export/home/pohl/../../../../../../.
> ./../../../../../../../../../../../../../../../../../../../../../../../../..
> /../../../../../../../../../../../../../../../../../../../../../../../../../
> ../../../../../../../../../../../../../../../../../../../../../../../../../.
> ./../../../../../../../../../../../../../../../../../../../../../../../../..
> /../../../../../../../../../../../../../../../../../../../../../../../../../
> ../../../../../../../../../../../../../../../../../../../../../../../../../.
> ./../../../../../../../../../../../../../../../../../../../../../../" nil
> nil nil)
> apply(ange-ftp-directory-files
> ("/pohl@webdev:/export/home/pohl/../../../../../../../../../../../../../../.
> ./../../../../../../../../../../../../../../../../../../../../../../../../..
> /../../../../../../../../../../../../../../../../../../../../../../../../../
> ../../../../../../../../../../../../../../../../../../../../../../../../../.
> ./../../../../../../../../../../../../../../../../../../../../../../../../..
> /../../../../../../../../../../../../../../../../../../../../../../../../../
> ../../../../../../../../../../../../../../../../../../../../../../../../../.
> ./../../../../../../../../../../../../../../" nil nil nil))
> ange-ftp-hook-function(directory-files
> "/pohl@webdev:/export/home/pohl/../../../../../../../../../../../../../../..
> /../../../../../../../../../../../../../../../../../../../../../../../../../
> ../../../../../../../../../../../../../../../../../../../../../../../../../.
> ./../../../../../../../../../../../../../../../../../../../../../../../../..
> /../../../../../../../../../../../../../../../../../../../../../../../../../
> ../../../../../../../../../../../../../../../../../../../../../../../../../.
> ./../../../../../../../../../../../../../../../../../../../../../../../../..
> /../../../../../../../../../../../../../../" nil nil nil)
>
> directory-files("/pohl@webdev:/export/home/pohl/../../../../../../../../../.
> ./../../../../../../../../../../../../../../../../../../../../../../../../..
> /../../../../../../../../../../../../../../../../../../../../../../../../../
> ../../../../../../../../../../../../../../../../../../../../../../../../../.
> ./../../../../../../../../../../../../../../../../../../../../../../../../..
> /../../../../../../../../../../../../../../../../../../../../../../../../../
> ../../../../../../../../../../../../../../../../../../../../../../../../../.
> ./../../../../../../../../../../../../../../../../../../../")
> (find jde-project-file-name (directory-files dir) :test (quote string=))
> (let ((file ...)) (if file (concat dir file) (if ... ...)))
>
> jde-find-project-file("/pohl@webdev:/export/home/pohl/../../../../../../../.
> ./../../../../../../../../../../../../../../../../../../../../../../../../..
> /../../../../../../../../../../../../../../../../../../../../../../../../../
> ../../../../../../../../../../../../../../../../../../../../../../../../../.
> ./../../../../../../../../../../../../../../../../../../../../../../../../..
> /../../../../../../../../../../../../../../../../../../../../../../../../../
> ../../../../../../../../../../../../../../../../../../../../../../../../../.
> ./../../../../../../../../../../../../../../../../../../../../../")
> (if (not (jde-root-dir-p dir)) (jde-find-project-file (concat dir "../")))
> (if file (concat dir file) (if (not ...) (jde-find-project-file ...)))
> (let ((file ...)) (if file (concat dir file) (if ... ...)))
>
> jde-find-project-file("/pohl@webdev:/export/home/pohl/../../../../../../../.
> ./../../../../../../../../../../../../../../../../../../../../../../../../..
> /../../../../../../../../../../../../../../../../../../../../../../../../../
> ../../../../../../../../../../../../../../../../../../../../../../../../../.
> ./../../../../../../../../../../../../../../../../../../../../../../../../..
> /../../../../../../../../../../../../../../../../../../../../../../../../../
> ../../../../../../../../../../../../../../../../../../../../../../../../../.
> ./../../../../../../../../../../../../../../../../../../../../")
> (if (not (jde-root-dir-p dir)) (jde-find-project-file (concat dir "../")))
> (if file (concat dir file) (if (not ...) (jde-find-project-file ...)))
> (let ((file ...)) (if file (concat dir file) (if ... ...)))
>
> jde-find-project-file("/pohl@webdev:/export/home/pohl/../../../../../../../.
> ./../../../../../../../../../../../../../../../../../../../../../../../../..
> /../../../../../../../../../../../../../../../../../../../../../../../../../
> ../../../../../../../../../../../../../../../../../../../../../../../../../.
> ./../../../../../../../../../../../../../../../../../../../../../../../../..
> /../../../../../../../../../../../../../../../../../../../../../../../../../
> ../../../../../../../../../../../../../../../../../../../../../../../../../.
> ./../../../../../../../../../../../../../../../../../../../")
> (if (not (jde-root-dir-p dir)) (jde-find-project-file (concat dir "../")))
> (if file (concat dir file) (if (not ...) (jde-find-project-file ...)))
> (let ((file ...)) (if file (concat dir file) (if ... ...)))
>
> jde-find-project-file("/pohl@webdev:/export/home/pohl/../../../../../../../.
> ./../../../../../../../../../../../../../../../../../../../../../../../../..
> /../../../../../../../../../../../../../../../../../../../../../../../../../
> ../../../../../../../../../../../../../../../../../../../../../../../../../.
> ./../../../../../../../../../../../../../../../../../../../../../../../../..
> /../../../../../../../../../../../../../../../../../../../../../../../../../
> ../../../../../../../../../../../../../../../../../../../../../../../../../.
> ./../../../../../../../../../../../../../../../../../../")
> (if (not (jde-root-dir-p dir)) (jde-find-project-file (concat dir "../")))
> (if file (concat dir file) (if (not ...) (jde-find-project-file ...)))
> (let ((file ...)) (if file (concat dir file) (if ... ...)))
>
> .
> .
> .
>
> jde-find-project-file("/pohl@webdev:/export/home/pohl/../../../../../../")
> (if (not (jde-root-dir-p dir)) (jde-find-project-file (concat dir "../")))
> (if file (concat dir file) (if (not ...) (jde-find-project-file ...)))
> (let ((file ...)) (if file (concat dir file) (if ... ...)))
> jde-find-project-file("/pohl@webdev:/export/home/pohl/../../../../../")
> (if (not (jde-root-dir-p dir)) (jde-find-project-file (concat dir "../")))
> (if file (concat dir file) (if (not ...) (jde-find-project-file ...)))
> (let ((file ...)) (if file (concat dir file) (if ... ...)))
> jde-find-project-file("/pohl@webdev:/export/home/pohl/../../../../")
> (if (not (jde-root-dir-p dir)) (jde-find-project-file (concat dir "../")))
> (if file (concat dir file) (if (not ...) (jde-find-project-file ...)))
> (let ((file ...)) (if file (concat dir file) (if ... ...)))
> jde-find-project-file("/pohl@webdev:/export/home/pohl/../../../")
> (if (not (jde-root-dir-p dir)) (jde-find-project-file (concat dir "../")))
> (if file (concat dir file) (if (not ...) (jde-find-project-file ...)))
> (let ((file ...)) (if file (concat dir file) (if ... ...)))
> jde-find-project-file("/pohl@webdev:/export/home/pohl/../../")
> (if (not (jde-root-dir-p dir)) (jde-find-project-file (concat dir "../")))
> (if file (concat dir file) (if (not ...) (jde-find-project-file ...)))
> (let ((file ...)) (if file (concat dir file) (if ... ...)))
> jde-find-project-file("/pohl@webdev:/export/home/pohl/../")
> (if (not (jde-root-dir-p dir)) (jde-find-project-file (concat dir "../")))
> (if file (concat dir file) (if (not ...) (jde-find-project-file ...)))
> (let ((file ...)) (if file (concat dir file) (if ... ...)))
> jde-find-project-file("/pohl@webdev:/export/home/pohl/")
> (let ((prj-file ...)) (if prj-file (load-file prj-file)
> (jde-set-variables-init-value)))
> jde-load-project-file()
> jde-mode()
> call-interactively(jde-mode)
> execute-extended-command(nil)
> call-interactively(execute-extended-command)
> recursive-edit()
> byte-code("...8-bit garbage...")
> debug(error (error "No command name given"))
> execute-extended-command(nil)
> call-interactively(execute-extended-command)
