*** empty log message ***

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

diff --git a/FLT/DEVA-OTF.flt b/FLT/DEVA-OTF.flt
index b474191..839813d 100644 (file)
--- a/FLT/DEVA-OTF.flt
+++ b/FLT/DEVA-OTF.flt
@@ -107,7 +107,7 @@
    ("(RH)?(Vn?)((J?HR)?m?u?b?p?n?a?[sS]?t?A?)"
     < | (1 = =) (2 :otf=deva=nukt+) (3 = *) | >)
 
-   ;; Ordinary syllables
+   ;; Consonant-based syllables
    ;;1      23                 4
    ("([CR]n?((J?H|HJ?)[CR]n?)*)(H[NJ]?|m?u?b?p?n?a?[sS]?t?A?)"
     < |
@@ -175,8 +175,8 @@
     |
     (1 (cond ("RHJ" :otf=deva=half+)
             ("RH" :otf=deva=rphf+)))
-    (2 (cond ("(.H)(.+)" (1 :otf=deva=half+) (2 :otf=deva=blwf,half+))
-            (".+" :otf=deva=blwf,half+)))
+    (2 (cond ("(.H)J?(.*)" (1 :otf=deva=half+) (2 lang-forms *))
+            (".+" lang-forms *)))
     (3 = =) |)
 
    ;; Other syllables