From dd6b151c25551fe125d61a54890756d9454cc402 Mon Sep 17 00:00:00 2001 From: Robert Pluim Date: Fri, 26 Nov 2021 15:54:49 +0100 Subject: [PATCH] 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 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) -- 2.39.5