Specify initial values for glyphless-char-display-control elements

* lisp/international/characters.el (glyphless-char-display-control):
Specify :value for all the elements, since nil is not a valid value.

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index 5aefda232831a78b472e5151726f31a9338ca9e5..ec995743f5a6feb912f692693191383abce97434 100644 (file)
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -1618,31 +1618,36 @@ function (`update-glyphless-char-display'), which updates
   :type '(alist :key-type (symbol :tag "Character Group")
                :value-type (symbol :tag "Display Method"))
   :options '((c0-control
-             (choice (const :tag "Don't display" zero-width)
+             (choice :value thin-space
+                      (const :tag "Don't display" zero-width)
                      (const :tag "Display as thin space" thin-space)
                      (const :tag "Display as empty box" empty-box)
                      (const :tag "Display acronym" acronym)
                      (const :tag "Display hex code in a box" hex-code)))
             (c1-control
-             (choice (const :tag "Don't display" zero-width)
+             (choice :value thin-space
+                      (const :tag "Don't display" zero-width)
                      (const :tag "Display as thin space" thin-space)
                      (const :tag "Display as empty box" empty-box)
                      (const :tag "Display acronym" acronym)
                      (const :tag "Display hex code in a box" hex-code)))
             (format-control
-             (choice (const :tag "Don't display" zero-width)
+             (choice :value thin-space
+                      (const :tag "Don't display" zero-width)
                      (const :tag "Display as thin space" thin-space)
                      (const :tag "Display as empty box" empty-box)
                      (const :tag "Display acronym" acronym)
                      (const :tag "Display hex code in a box" hex-code)))
             (variation-selectors
-             (choice (const :tag "Don't display" zero-width)
+             (choice :value thin-space
+                      (const :tag "Don't display" zero-width)
                      (const :tag "Display as thin space" thin-space)
                      (const :tag "Display as empty box" empty-box)
                      (const :tag "Display acronym" acronym)
                      (const :tag "Display hex code in a box" hex-code)))
             (no-font
-             (choice (const :tag "Don't display" zero-width)
+             (choice :value hex-code
+                      (const :tag "Don't display" zero-width)
                      (const :tag "Display as thin space" thin-space)
                      (const :tag "Display as empty box" empty-box)
                      (const :tag "Display acronym" acronym)