tramp ($Id: tramp.el,v 2.44 2001/11/07 14:38:28 kaig Exp $); tramp-methods customization is mismatched

[Joe C. <jca...@no...>]

Enter your bug report in this message, including as much detail as you
possibly can about the problem, what you did to cause it and what the
local and remote machines are.

If you can give a simple set of instructions to make this bug happen
reliably, please include those.  Thank you for helping kill bugs in
TRAMP.
--bug report follows this line--

Hi,

I'm running the latest CVS version of tramp, trying to customize
tramp-methods.  As soon as I [Show] the `tramp-methods' variable, it
shows up as mismatched.  I tried (briefly) to figure out what was
wrong, but I couldn't figure it out and I have to run into a meeting.

I cut-and-pasted the defcustom form, giving it a default value of nil
to see what custom thought things should look like, and I can see that
there are serious problems.  At the very least, the set is not needed,
I think.

(defcustom tramp-methods-test nil
    "Foo."
  :group 'tramp
  :type '(repeat
          (cons string
                (set (list (const tramp-connection-function) function)
                     (list (const tramp-rsh-program) string)
                     (list (const tramp-rcp-program) string)
                     (list (const tramp-remote-sh) string)
                     (list (const tramp-rsh-args) (repeat string))
                     (list (const tramp-rcp-args) (repeat string))
                     (list (const tramp-rcp-keep-date-arg) string)
                     (list (const tramp-su-program) string)
                     (list (const tramp-su-args) (repeat string))
                     (list (const tramp-encoding-command) string)
                     (list (const tramp-decoding-command) string)
                     (list (const tramp-encoding-function) function)
                     (list (const tramp-decoding-function) function)
                     (list (const tramp-telnet-program) string)
                     (list (const tramp-telnet-args) (repeat string))))))


This comes close, but it's not quite it:

(defcustom tramp-methods-test nil
    "Foo."
  :group 'tramp
  :type '(repeat
		  (list string
				(list (const tramp-connection-function) function)
				(list (const tramp-rsh-program) string)
				(list (const tramp-rcp-program) string)
				(list (const tramp-remote-sh) string)
				(list (const tramp-rsh-args) (repeat string))
				(list (const tramp-rcp-args) (repeat string))
				(list (const tramp-rcp-keep-date-arg) string)
				(list (const tramp-su-program) string)
				(list (const tramp-su-args) (repeat string))
				(list (const tramp-encoding-command) string)
				(list (const tramp-decoding-command) string)
				(list (const tramp-encoding-function) function)
				(list (const tramp-decoding-function) function)
				(list (const tramp-telnet-program) string)
				(list (const tramp-telnet-args) (repeat string)))))


Emacs  : GNU Emacs 21.1.1 (i386-mingw-nt4.0.1381)
 of 2001-10-29 on JCASADONTE
Package: tramp ($Id: tramp.el,v 2.44 2001/11/07 14:38:28 kaig Exp $)

current state:
==============
(setq
 tramp-ls-command nil
 tramp-test-groks-nt nil
 tramp-file-exists-command nil
 tramp-current-multi-method nil
 tramp-current-method nil
 tramp-current-user nil
 tramp-current-host nil
 tramp-auto-save-directory nil
 tramp-default-method "scp"
 tramp-rsh-end-of-line "\n"
 tramp-remote-path '("/bin" "/usr/bin" "/usr/sbin" "/usr/local/bin" "/usr/ccs/bin" "/local/bin" "/local/freeware/bin"
					 "/local/gnu/bin" "/usr/freeware/bin" "/usr/pkg/bin")
 tramp-login-prompt-regexp ".*ogin: *$"
 tramp-password-prompt-regexp "^.*\\([pP]assword\\|passphrase.*\\):