infinite recursion bug

[Chris Moore]

I just did a 'cvs update' to get the latest sources and rebuilt Emacs.
 I'm seeing an infinite recursion when I run this:

emacs -q --no-site-file --eval='(progn (setq debug-on-error t) (load
"shell.el") (setq default-directory "/localhost:/usr/") (dired "/"))'

There's a circular recursive call:

  loading 'tramp' calls custom-declare-variable
  which calls custom-initialize-reset
  which calls executable-find
  which calls file-executable-p
  which calls tramp-file-name-handler
  which calls custom-declare-variable
  which calls custom-initialize-reset
  and so on

Emacs comes up showing a backtrace, as follows:

Debugger entered--Lisp error: (error "Recursive load"
"/home/chris/programs/emacs/lisp/net/tramp.elc"
"/home/chris/programs/emacs/lisp/net/tramp.elc"
"/home/chris/programs/emacs/lisp/net/tramp.elc"
"/home/chris/programs/emacs/lisp/net/tramp.elc"
"/home/chris/programs/emacs/lisp/net/tramp.elc")
  tramp-file-name-handler(expand-file-name
"/home/chris/monobundle-1.1.4/mono/bin/plink" "/localhost:/usr/")
  file-executable-p("/home/chris/monobundle-1.1.4/mono/bin/plink")
  executable-find("plink")
  (and (fboundp (quote executable-find)) (executable-find "plink"))
  (if (and (fboundp ...) (executable-find "plink")) "plink" "ssh")
  eval((if (and (fboundp ...) (executable-find "plink")) "plink" "ssh"))
  custom-initialize-reset(tramp-default-method (if (and (fboundp ...)
(executable-find "plink")) "plink" "ssh"))
  custom-declare-variable(tramp-default-method (if (and (fboundp ...)
(executable-find "plink")) "plink" "ssh")
("/home/chris/programs/emacs/lisp/net/tramp.elc" . -19280) :group
tramp :type string)
  tramp-file-name-handler(expand-file-name
"/home/chris/monobundle-1.1.4/mono/bin/plink" "/localhost:/usr/")
  file-executable-p("/home/chris/monobundle-1.1.4/mono/bin/plink")
  executable-find("plink")
  (and (fboundp (quote executable-find)) (executable-find "plink"))
  (if (and (fboundp ...) (executable-find "plink")) "plink" "ssh")
  eval((if (and (fboundp ...) (executable-find "plink")) "plink" "ssh"))
  custom-initialize-reset(tramp-default-method (if (and (fboundp ...)
(executable-find "plink")) "plink" "ssh"))
  custom-declare-variable(tramp-default-method (if (and (fboundp ...)
(executable-find "plink")) "plink" "ssh")
("/home/chris/programs/emacs/lisp/net/tramp.elc" . -19280) :group
tramp :type string)
  tramp-file-name-handler(expand-file-name
"/home/chris/monobundle-1.1.4/mono/bin/plink" "/localhost:/usr/")
  file-executable-p("/home/chris/monobundle-1.1.4/mono/bin/plink")
  executable-find("plink")
  (and (fboundp (quote executable-find)) (executable-find "plink"))
  (if (and (fboundp ...) (executable-find "plink")) "plink" "ssh")
  eval((if (and (fboundp ...) (executable-find "plink")) "plink" "ssh"))
  custom-initialize-reset(tramp-default-method (if (and (fboundp ...)
(executable-find "plink")) "plink" "ssh"))
  custom-declare-variable(tramp-default-method (if (and (fboundp ...)
(executable-find "plink")) "plink" "ssh")
("/home/chris/programs/emacs/lisp/net/tramp.elc" . -19280) :group
tramp :type string)
  tramp-file-name-handler(expand-file-name
"/home/chris/monobundle-1.1.4/mono/bin/plink" "/localhost:/usr/")
  file-executable-p("/home/chris/monobundle-1.1.4/mono/bin/plink")
  executable-find("plink")
  (and (fboundp (quote executable-find)) (executable-find "plink"))
  (if (and (fboundp ...) (executable-find "plink")) "plink" "ssh")
  eval((if (and (fboundp ...) (executable-find "plink")) "plink" "ssh"))
  custom-initialize-reset(tramp-default-method (if (and (fboundp ...)
(executable-find "plink")) "plink" "ssh"))
  custom-declare-variable(tramp-default-method (if (and (fboundp ...)
(executable-find "plink")) "plink" "ssh")
("/home/chris/programs/emacs/lisp/net/tramp.elc" . -19280) :group
tramp :type string)
  tramp-file-name-handler(expand-file-name "/" "/localhost:/usr/")
  expand-file-name("/")
  dired-noselect("/" nil)
  dired("/")
  (progn (setq debug-on-error t) (load "shell.el") (setq
default-directory "/localhost:/usr/") (dired "/"))
  eval((progn (setq debug-on-error t) (load "shell.el") (setq
default-directory "/localhost:/usr/") (dired "/")))
  command-line-1(("--eval=(progn (setq debug-on-error t) (load
\"shell.el\") (setq default-directory \"/localhost:/usr/\") (dired
\"/\"))"))
  command-line()
  normal-top-level()

I reported this about a week ago, but didn't hear anything back. 
Maybe the HTML formatting I used stopped people seeing it.  I'm using
plain text this time.

Chris.