(map:escape): Don't shift. Don't include "[".

(map:non-tibetan): New map.
(map:unicode): Don't shift.
(state:init): Add `shift' to the branch action of `escape'.
Include `non-tibetan' map.
(state:dispatch-escape): Add `shift' to the branch action of
`unicode'.

diff --git a/MIM/bo-ewts.mim b/MIM/bo-ewts.mim
index b6ebe6a..1e9d7a8 100644 (file)
--- a/MIM/bo-ewts.mim
+++ b/MIM/bo-ewts.mim
@@ -276,12 +276,14 @@ If 0, generate only decomposed characters (e.g. \"ྲྀ\" (U+0FB2 U+0F80).")
   ("^" "༹"))
  
  (escape
-  ("\\" (mark @BEG) "\\" (shift dispatch-escape))
-  ("[" (shift non-tibetan)))
+  ("\\" (mark @BEG) "\\"))
+
+ (non-tibetan
+  ("["))
 
  (unicode
-  ("u" "u" (set MAX-COUNT 4) (shift unicode))
-  ("U" "U" (set MAX-COUNT 8) (shift unicode)))
+  ("u" "u" (set MAX-COUNT 4))
+  ("U" "U" (set MAX-COUNT 8)))
 
  (unescape
   ("]"))
@@ -314,7 +316,8 @@ If 0, generate only decomposed characters (e.g. \"ྲྀ\" (U+0FB2 U+0F80).")
   (sanskrit (shift after-consonant))
   (vowel (move @<) "ཨ" (move @>) (shift after-vowel))
   (others)
-  (escape)
+  (escape (shift dispatch-escape))
+  (non-tibetan (shift non-tibetan))
   (backsapce))
 
  (after-consonant
@@ -338,7 +341,7 @@ If 0, generate only decomposed characters (e.g. \"ྲྀ\" (U+0FB2 U+0F80).")
   (vowel (shift after-vowel)))
 
  (dispatch-escape
-  (unicode)
+  (unicode (shift unicode))
   (nil (delete @BEG) (shift init) (unhandle)))
 
  (unicode