diff options
| author | Po Lu <luangruo@yahoo.com> | 2023-04-26 08:48:12 +0800 |
|---|---|---|
| committer | Po Lu <luangruo@yahoo.com> | 2023-04-26 08:48:12 +0800 |
| commit | 5f389f4b634c0dff4a3684e132280775f0ad3752 (patch) | |
| tree | 581b3885ed626ecff53908a99f629860d257cc7e /lisp/international | |
| parent | 9043bef65f9922438a33aee0c90af8ffb266eb91 (diff) | |
| parent | d07815a7cc3540201afa06e3c80c061e9f497815 (diff) | |
| download | emacs-5f389f4b634c0dff4a3684e132280775f0ad3752.tar.gz | |
Merge remote-tracking branch 'origin/master' into feature/android
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 a60ce4c4df6..bbb1993ba3c 100644 --- a/lisp/international/fontset.el +++ b/lisp/international/fontset.el @@ -651,6 +651,8 @@ (nil . "MuleArabic-1") (nil . "MuleArabic-2") (nil . "ISO8859-6")) + (mongolian ,(font-spec :registry "iso10646-1" + :otf '(mong nil (init medi fina isol)))) (hebrew ,(font-spec :registry "iso10646-1" :script 'hebrew) (nil . "ISO8859-8")) |