bug#57073: [BUG] update-glyphless-char-display and variation selectors

[Axel Svensson <svenssonaxel@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 202 bytes --]

On Tue, Aug 9, 2022 at 10:38 AM Axel Svensson <svenssonaxel@gmail.com> wrote:
> The attached patch attempts to fix this and succeeds for U+FE00..U+FE0E but fails for U+FE0F.

Sorry, patch attached now.

[-- Attachment #2: 0001-Add-variation-selectors-to-char-acronym-table.patch --]
[-- Type: text/x-patch, Size: 1209 bytes --]

From d7d8cb6c0111223aa2492db5248818af2e789a1f Mon Sep 17 00:00:00 2001
From: Axel Svensson <mail@axelsvensson.com>
Date: Tue, 9 Aug 2022 01:11:02 +0200
Subject: [PATCH] Add variation selectors to `char-acronym-table'

---
 lisp/international/characters.el | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index ca28222c81..616480769d 100644
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -1525,6 +1525,15 @@ Setup `char-width-table' appropriate for non-CJK language environment."
   (aset char-acronym-table (+ #xE0021 i) (format " %c TAG" (+ 33 i))))
 (aset char-acronym-table #xE007F "->|TAG") ; CANCEL TAG
 
+(let ((vs-acronyms
+       '("VS   1" "VS   2" "VS   3" "VS   4"
+         "VS   5" "VS   6" "VS   7" "VS   8"
+         "VS   9" "VS  10" "VS  11" "VS  12"
+         "VS  13" "VS  14" "VS  15" "VS  16")))
+  (dotimes (i 16)
+    (aset char-acronym-table (+ #xfe00 i) (car vs-acronyms))
+    (setq vs-acronyms (cdr vs-acronyms))))
+
 ;; We can't use the \N{name} things here, because this file is used
 ;; too early in the build process.
 (defvar bidi-control-characters
-- 
2.30.2