From: Robert Pluim <rpluim@gmail.com>
Date: Fri, 26 Nov 2021 14:54:49 +0000 (+0100)
Subject: Specify initial values for glyphless-char-display-control elements
X-Git-Tag: emacs-29.0.90~2852^2~13
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=dd6b151c25551fe125d61a54890756d9454cc402;p=emacs.git

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 5aefda23283..ec995743f5a 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)