Customize inserts wrong default values

[Jens Schmidt]

This bug report will be sent to the Free Software Foundation,
not to your local site managers!
Please write in English, because the Emacs maintainers do not have
translators to read other languages for them.

Your bug report will be posted to the bug-gnu-emacs@gnu.org mailing list,
and to the gnu.emacs.bug news group.

In GNU Emacs 21.1.1 (i386-msvc-nt4.0.1381)
 of 2001-10-22 on buffy
configured using `configure --with-msvc (12.00)'
Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: ENU
  locale-coding-system: iso-latin-1
  default-enable-multibyte-characters: t

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:


[Note: This has nothing to do with the bug I filed yesterday.
Only the example is almost the same.]


Consider the following customization variable:

(defcustom test '((0 . "abc"))
  "xxx"
  :type '(repeat (choice string
                         (cons :value (3 . "def") integer string))))

In the fresh customization buffer for `test' execute the
following sequence of actions:

  Hit 2nd "INS"
  Hit 2nd "Value Menu" and choose "Cons cell"

This sequence correctly inserts the 2nd cell (3 . "def").

Now continue:

  Hit 1st "Value Menu" and choose "String"
  Hit 1st "Value Menu" and choose "Cons cell" again
  Hit 3rd "INS"
  Hit 3rd "Value Menu" and choose "Cons cell"

This sequence inserts the 3rd cell (0 . "abc").  That is, instead
of inserting the default value as for the 2nd cell, the 1st cell
just gets duplicated.