New file. Modified from ru-kbd.png.

[m17n/m17n-db.git] / FLT / ARAB-OTF.flt

diff --git a/FLT/ARAB-OTF.flt b/FLT/ARAB-OTF.flt
index 2bc2c80..069f82b 100644 (file)
--- a/FLT/ARAB-OTF.flt
+++ b/FLT/ARAB-OTF.flt
@@ -3,7 +3,7 @@
 ;; See the end for copying conditions.
 
 (font layouter arab-otf nil
-      (font (nil nil unicode-bmp :otf=arab=init,medi,fina,liga+mark)))
+      (font (nil nil unicode-bmp :otf=arab=init,medi,fina+mark)))
 
 ;;; <li> ARAB-OTF.flt
 ;;;
@@ -59,11 +59,8 @@
  ;; R: Right-joining (alef, dal, thal, reh, zain)
  ;; U: Non-joining (Hamza, etc. & zwnj)
  ;; T: Transparent (combining marks)
- (0x060B 0x060F                ?U)
+ (0x0600 0x06FF                ?U)
  (0x0610 0x0615                ?T)
- (0x061B               ?U)
- (0x061E 0x061F                ?U)
- (0x0621               ?U)
  (0x0622 0x0623                ?R)
  (0x0624               ?R)
  (0x0625               ?R)
@@ -77,11 +74,9 @@
  (0x0648               ?R)
  (0x0649 0x064A                ?D)
  (0x064B 0x065E                ?T)
- (0x0660 0x066D                ?U)
  (0x066E 0x066F                ?D)
  (0x0670               ?T)
  (0x0671 0x0673                ?R)
- (0x0674 0x0678                ?U)
  (0x0679 0x0687                ?D)
  (0x0688 0x0699                ?R)
  (0x069A 0x06C3                ?D)
@@ -89,17 +84,12 @@
  (0x06CC 0x06CE                ?D)
  (0x06CF               ?R)
  (0x06D0 0x06D3                ?D)
- (0x06D4               ?U)
  (0x06D5               ?R)
  (0x06D6 0x06E4                ?T)
- (0x06E5 0x06E6                ?U)
  (0x06E7 0x06E8                ?T)
- (0x06E9               ?U)
  (0x06EA 0x06ED                ?T)
  (0x06EE 0x06EF                ?R)
- (0x06F0 0x06F9                ?U)
  (0x06FA 0x06FC                ?D)
- (0x06FD 0x06FE                ?U)
  (0x06FF               ?D)
  (0x0750 0x0758                ?D)
  (0x0759 0x075B                ?R)
@@ -153,7 +143,9 @@
     (3 disjoin))
 
    ("(T+)(.*)"
-    (1 = *)
+    (1 (cond
+       ((font-facility 0x25CC) < 0x25CC = * >)
+       (".+" [ = * ])))
     (2 disjoin))))
 
  (join