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)
