]> git.eshelyaron.com Git - emacs.git/commitdiff
Enable the system's Arabic and Khmer fonts under Android
authorPo Lu <luangruo@yahoo.com>
Tue, 16 Jan 2024 02:59:34 +0000 (10:59 +0800)
committerPo Lu <luangruo@yahoo.com>
Tue, 16 Jan 2024 03:08:37 +0000 (11:08 +0800)
* lisp/international/fontset.el (setup-default-fontset): If
`android', search for Arabic or Khmer fonts with script tags,
not OTF features.

lisp/international/fontset.el

index 2c461a7f7abca8045300fffb3e5fb4459a5492e7..33e444507c45964a0000dd4d2a68984ce76c3977 100644 (file)
               (nil . "microsoft-cp1251")
               (nil . "koi8-r"))
 
-     (arabic ,(font-spec :registry "iso10646-1"
-                        :otf '(arab nil (init medi fina liga)))
+     (arabic ,(if (featurep 'android)
+                  ;; The Android font driver does not support the
+                  ;; detection of OTF tags but all fonts installed on
+                  ;; Android with Arabic characters provide shaping
+                  ;; information required for displaying Arabic text.
+                  (font-spec :registry "iso10646-1" :script 'arabic)
+                (font-spec :registry "iso10646-1"
+                          :otf '(arab nil (init medi fina liga))))
             (nil . "MuleArabic-0")
             (nil . "MuleArabic-1")
             (nil . "MuleArabic-2")
      (hebrew ,(font-spec :registry "iso10646-1" :script 'hebrew)
             (nil . "ISO8859-8"))
 
-     (khmer ,(font-spec :registry "iso10646-1" :otf '(khmr nil (pres))))
+     (khmer ,(if (featurep 'android)
+                 (font-spec :registry "iso10646-1" :script 'khmer)
+               (font-spec :registry "iso10646-1" :otf '(khmr nil (pres)))))
 
      (kana (nil . "JISX0208*")
           (nil . "GB2312.1980-0")