(state:state-LVT-or-LVTL): Add backspace branch.

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

diff --git a/FLT/BENG-OTF.flt b/FLT/BENG-OTF.flt
index 1e3c8dc..45cc554 100644 (file)
--- a/FLT/BENG-OTF.flt
+++ b/FLT/BENG-OTF.flt
@@ -111,20 +111,22 @@
    ;; Consonant-based syllables
    ;;1        23                   4
    ("([CBYR]n?((J?H|HJ?)[CBYR]n?)*)(H[NJ]?|m?([NJ]?b)?p?n?a?A?)"
-    < | (1 :otf=beng=nukt,akhn+)
-    (4 (cond ("HJ" = =)
-            ("(H)N?" (1 =) 0x200C)
-            (".+" = *))) | >)
+    < |
+    (cond
+     (".+HJ$" :otf=beng=nukt,akhn+)
+     ("(.+)(H)N?$" (1 :otf=beng=nukt,akhn+) (2 =) 0x200C)
+     (".+" :otf=beng=nukt,akhn+))
+    | >)
 
    ;; Two-part vowel signs
    ((0x09C7 0x09BE)
     (cond
      ((font-facility 0x25CC) < = 0x25CC = >)
-     (".+" < 0x09CB >)))
+     (".+" [ 0x09CB ])))
    ((0x09C7 0x09D7)
     (cond
      ((font-facility 0x25CC) < = 0x25CC = >)
-     (".+" < 0x09CC >)))
+     (".+" [ 0x09CC ])))
 
    ;; Combining marks are displayed with a DOTTED CIRCLE.
    ("m"