master dd6b151: Specify initial values for glyphless-char-display-control elements

[Robert Pluim]

branch: master
commit dd6b151c25551fe125d61a54890756d9454cc402
Author: Robert Pluim <rpluim@gmail.com>
Commit: Robert Pluim <rpluim@gmail.com>

    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.
---
 lisp/international/characters.el | 15 ++++++++++-----
 1 file changed, 10 insertions(+), 5 deletions(-)

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index 5aefda2..ec99574 100644
--- 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)