summaryrefslogtreecommitdiff
path: root/lisp/international/fontset.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/international/fontset.el')
-rw-r--r--lisp/international/fontset.el64
1 files changed, 47 insertions, 17 deletions
diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el
index 31ffaf157b6..5967648f36f 100644
--- a/lisp/international/fontset.el
+++ b/lisp/international/fontset.el
@@ -182,8 +182,15 @@
(canadian-aboriginal #x14C0)
(ogham #x168F)
(runic #x16A0)
+ (tagalog #x1700)
+ (hanunoo #x1720)
+ (buhid #x1740)
+ (tagbanwa #x1760)
(khmer #x1780)
(mongolian #x1826)
+ (tai-le #x1950)
+ (tai-lue #x1980)
+ (tai-tham #x1A20 #x1A55 #x1A61 #x1A80)
(symbol . [#x201C #x2200 #x2500])
(braille #x2800)
(ideographic-description #x2FF0)
@@ -193,6 +200,7 @@
(kanbun #x319D)
(han #x5B57)
(yi #xA288)
+ (syloti-nagri #xA807 #xA823 #xA82C)
(javanese #xA980)
(cham #xAA00)
(tai-viet #xAA80)
@@ -230,15 +238,17 @@
(chorasmian #x10FB0)
(elymaic #x10FE0)
(old-uyghur #x10F70)
+ (brahmi #x11013 #x11045 #x11052 #x11065)
+ (kaithi #x1108D #x110B0 #x110BD)
(mahajani #x11150)
- (sinhala-archaic-number #x111E1)
+ (sharada #x11191 #x111B3 #x111CD)
(khojki #x11200)
(khudawadi #x112B0)
(grantha #x11305)
(newa #x11400)
- (tirhuta #x11481)
- (siddham #x11580)
- (modi #x11600)
+ (tirhuta #x11481 #x1148F #x114D0)
+ (siddham #x1158E #x115AF #x115D4)
+ (modi #x1160E #x11630 #x11655)
(takri #x11680)
(dogra #x11800)
(warang-citi #x118A1)
@@ -253,7 +263,6 @@
(gunjala-gondi #x11D60)
(makasar #x11EE0)
(cuneiform #x12000)
- (cuneiform-numbers-and-punctuation #x12400)
(cypro-minoan #x12F90)
(egyptian #x13000)
(mro #x16A40)
@@ -262,7 +271,6 @@
(pahawh-hmong #x16B11)
(medefaidrin #x16E40)
(tangut #x17000)
- (tangut-components #x18800)
(khitan-small-script #x18B00)
(nushu #x1B170)
(duployan-shorthand #x1BC20)
@@ -285,7 +293,7 @@
(defvar otf-script-alist)
-;; The below was synchronized with the latest Oct 8, 2020 version of
+;; The below was synchronized with the latest Sep 12, 2021 version of
;; https://docs.microsoft.com/en-us/typography/opentype/spec/scripttags
(setq otf-script-alist
'((adlm . adlam)
@@ -318,6 +326,7 @@
(copt . coptic)
(xsux . cuneiform)
(cprt . cypriot)
+ (cpmn . cypro-minoan)
(cyrl . cyrillic)
(dsrt . deseret)
(deva . devanagari)
@@ -341,7 +350,7 @@
(gur2 . gurmukhi)
(hani . han)
(hang . hangul)
- (jamo . hangul)
+ (jamo . hangul) ; Not recommended; use 'hang' instead.
(rohg . hanifi-rohingya)
(hano . hanunoo)
(hatr . hatran)
@@ -364,8 +373,8 @@
(latn . latin)
(lepc . lepcha)
(limb . limbu)
- (lina . linear_a)
- (linb . linear_b)
+ (lina . linear-a)
+ (linb . linear-b)
(lisu . lisu)
(lyci . lycian)
(lydi . lydian)
@@ -391,6 +400,7 @@
(musc . musical-symbol)
(mym2 . burmese)
(mymr . burmese)
+ (nand . nandinagari)
(nbat . nabataean)
(newa . newa)
(nko\ . nko)
@@ -405,6 +415,7 @@
(sogo . old-sogdian)
(sarb . old-south-arabian)
(orkh . old-turkic)
+ (ougr . old-uyghur)
(orya . oriya)
(ory2 . oriya)
(osge . osage)
@@ -430,17 +441,18 @@
(sora . sora-sompeng)
(soyo . soyombo)
(sund . sundanese)
- (sylo . syloti_nagri)
+ (sylo . syloti-nagri)
(syrc . syriac)
(tglg . tagalog)
(tagb . tagbanwa)
- (tale . tai_le)
+ (tale . tai-le)
(talu . tai-lue)
(lana . tai-tham)
(tavt . tai-viet)
(takr . takri)
(taml . tamil)
(tml2 . tamil)
+ (tnsa . tangsa)
(tang . tangut)
(telu . telugu)
(tel2 . telugu)
@@ -449,7 +461,9 @@
(tibt . tibetan)
(tfng . tifinagh)
(tirh . tirhuta)
+ (toto . toto)
(ugar . ugaritic)
+ (vith . vithkuqi)
(vai\ . vai)
(wcho . wancho)
(wara . warang-citi)
@@ -738,9 +752,14 @@
cham
ogham
runic
+ tagalog
+ hanunoo
+ buhid
+ tagbanwa
symbol
braille
yi
+ syloti-nagri
javanese
tai-viet
aegean-number
@@ -766,9 +785,14 @@
chorasmian
elymaic
old-uyghur
+ brahmi
+ kaithi
+ sharada
+ tirhuta
+ siddham
+ modi
makasar
dives-akuru
- cuneiform-numbers-and-punctuation
cuneiform
egyptian
tangsa
@@ -783,6 +807,7 @@
counting-rod-numeral
toto
adlam
+ tai-tham
mahjong-tile
domino-tile
emoji))
@@ -816,11 +841,16 @@
(#x1D7EC #x1D7F5 mathematical-sans-serif-bold)
(#x1D7F6 #x1D7FF mathematical-monospace)))
(let ((slot (assq (nth 2 math-subgroup) script-representative-chars)))
+ ;; Add both ends of each subgroup to help filter out some
+ ;; incomplete fonts, e.g. those that cover MATHEMATICAL SCRIPT
+ ;; CAPITAL glyphs but not MATHEMATICAL SCRIPT SMALL ones.
(if slot
- (if (vectorp (cdr slot))
- (setcdr slot (vconcat (cdr slot) (vector (car math-subgroup))))
- (setcdr slot (vector (cadr slot) (car math-subgroup))))
- (setq slot (list (nth 2 math-subgroup) (car math-subgroup)))
+ (setcdr slot (append (list (nth 0 math-subgroup)
+ (nth 1 math-subgroup))
+ (cdr slot)))
+ (setq slot (list (nth 2 math-subgroup)
+ (nth 0 math-subgroup)
+ (nth 1 math-subgroup)))
(nconc script-representative-chars (list slot))))
(set-fontset-font
"fontset-default"