aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPo Lu2024-01-16 10:59:34 +0800
committerPo Lu2024-01-16 11:08:37 +0800
commit44fcab04f6a346e602f00a6d9f5b0e6f0dbeb5e0 (patch)
tree8f424d82d760fcb22c025280277e6012c99aa50e
parente6a2901b1be6b4aa01f8bf0d3c6e06344ce8d366 (diff)
downloademacs-44fcab04f6a346e602f00a6d9f5b0e6f0dbeb5e0.tar.gz
emacs-44fcab04f6a346e602f00a6d9f5b0e6f0dbeb5e0.zip
Enable the system's Arabic and Khmer fonts under Android
* lisp/international/fontset.el (setup-default-fontset): If `android', search for Arabic or Khmer fonts with script tags, not OTF features.
-rw-r--r--lisp/international/fontset.el14
1 files changed, 11 insertions, 3 deletions
diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el
index 2c461a7f7ab..33e444507c4 100644
--- a/lisp/international/fontset.el
+++ b/lisp/international/fontset.el
@@ -645,8 +645,14 @@
645 (nil . "microsoft-cp1251") 645 (nil . "microsoft-cp1251")
646 (nil . "koi8-r")) 646 (nil . "koi8-r"))
647 647
648 (arabic ,(font-spec :registry "iso10646-1" 648 (arabic ,(if (featurep 'android)
649 :otf '(arab nil (init medi fina liga))) 649 ;; The Android font driver does not support the
650 ;; detection of OTF tags but all fonts installed on
651 ;; Android with Arabic characters provide shaping
652 ;; information required for displaying Arabic text.
653 (font-spec :registry "iso10646-1" :script 'arabic)
654 (font-spec :registry "iso10646-1"
655 :otf '(arab nil (init medi fina liga))))
650 (nil . "MuleArabic-0") 656 (nil . "MuleArabic-0")
651 (nil . "MuleArabic-1") 657 (nil . "MuleArabic-1")
652 (nil . "MuleArabic-2") 658 (nil . "MuleArabic-2")
@@ -657,7 +663,9 @@
657 (hebrew ,(font-spec :registry "iso10646-1" :script 'hebrew) 663 (hebrew ,(font-spec :registry "iso10646-1" :script 'hebrew)
658 (nil . "ISO8859-8")) 664 (nil . "ISO8859-8"))
659 665
660 (khmer ,(font-spec :registry "iso10646-1" :otf '(khmr nil (pres)))) 666 (khmer ,(if (featurep 'android)
667 (font-spec :registry "iso10646-1" :script 'khmer)
668 (font-spec :registry "iso10646-1" :otf '(khmr nil (pres)))))
661 669
662 (kana (nil . "JISX0208*") 670 (kana (nil . "JISX0208*")
663 (nil . "GB2312.1980-0") 671 (nil . "GB2312.1980-0")