diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2023-04-23 17:04:56 +0300 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2023-04-23 17:04:56 +0300 |
| commit | 965c5e0231c859eaa78f372c538a5478f6bd0ad1 (patch) | |
| tree | 155a6a6a396be98ca11e302b534af30203c86372 /lisp/international | |
| parent | 9a0f10b5f88667261bafc65ccdd63bdd9ef80147 (diff) | |
| download | emacs-965c5e0231c859eaa78f372c538a5478f6bd0ad1.tar.gz | |
Fix rendering of Traditional Mongolian script
* lisp/international/characters.el: Set punctuation syntax for Po
characters from the Mongolian block
* lisp/international/fontset.el (setup-default-fontset): Add
fontset setting for Traditional Mongolic.
* lisp/language/misc-lang.el (composition-function-table): Add
rules for Traditional Mongolic. (Bug#63028)
Diffstat (limited to 'lisp/international')
| -rw-r--r-- | lisp/international/characters.el | 10 | ||||
| -rw-r--r-- | lisp/international/fontset.el | 2 |
2 files changed, 12 insertions, 0 deletions
diff --git a/lisp/international/characters.el b/lisp/international/characters.el index 518436bd961..9aea5e27063 100644 --- a/lisp/international/characters.el +++ b/lisp/international/characters.el @@ -695,6 +695,16 @@ with L, LRE, or LRO Unicode bidi character type.") (set-case-syntax c "_" tbl) (setq c (1+ c))) + ;; Traditional Mongolian + (setq c #x1800) + (while (<= c #x180A) + (set-case-syntax c "." tbl) + (setq c (1+ c))) + (setq c #x11660) + (while (<= c #x1166C) + (set-case-syntax c "." tbl) + (setq c (1+ c))) + ;; Coptic ;; There's no Coptic category. However, Coptic letters that are ;; part of the Greek block above get the Greek category, and those diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el index eb1c7f53d36..84790adf7c1 100644 --- a/lisp/international/fontset.el +++ b/lisp/international/fontset.el @@ -648,6 +648,8 @@ (nil . "MuleArabic-1") (nil . "MuleArabic-2") (nil . "ISO8859-6")) + (mongolian ,(font-spec :registry "iso10646-1" + :otf '(mong nil (init medi fina)))) (hebrew ,(font-spec :registry "iso10646-1" :script 'hebrew) (nil . "ISO8859-8")) |