("([CR]n?H)([NJ])"): Fix for the case of this pattern.

[m17n/m17n-db.git] / DEV-OTF.flt

diff --git a/DEV-OTF.flt b/DEV-OTF.flt
index be6a53c..8075a64 100644 (file)
--- a/DEV-OTF.flt
+++ b/DEV-OTF.flt
@@ -77,14 +77,14 @@
 (generator
  (0
   (cond
-   ;; If [CR]H is followed by ZWNJ/ZWJ, move ZWNJ/ZWJ) to the head so
+   ;; If [CR]H is followed by ZWNJ/ZWJ, move ZWNJ/ZWJ to the head so
    ;; that the later stages find it quickly.
    ("([CR]n?H)([NJ])"
-    < | (2 =) (1 = =) | > )
+    < | (2 =) (1 = *) | > )
 
    ;; A syllable starting with RH (Reph) and ending with a vowel
    ;; and/or a vowel modifier.
-   ("(RH)(([CR]n?H)*[CR]n?)([mubp][Aa]?[Ss]?)"
+   ("(RH)(([CR]n?H)*[CR]n?)([mubp][Aa]?[Ss]?|[Aa][Ss]?|[Ss])"
     < | (1 0x097D = =) (2 move-base-Halant) (4 reorder-post-base) | >)
 
    ;; A syllable starting with RH (Reph) and ending without a vowel