From d7d8cb6c0111223aa2492db5248818af2e789a1f Mon Sep 17 00:00:00 2001 From: Axel Svensson 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