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

[m17n/m17n-db.git] / MIM / bo-ewts.mim

diff --git a/MIM/bo-ewts.mim b/MIM/bo-ewts.mim
index b6ebe6a..466b1ab 100644 (file)
--- a/MIM/bo-ewts.mim
+++ b/MIM/bo-ewts.mim
@@ -25,7 +25,9 @@
 
 (description "Tibetan input method based on EWTS.
 This implementation is based on THDL Extended Wylie Transliteration Scheme
-Version 2.0 <http://www.thdl.org/collections/langling/ewts/ewts.php>.")
+Version 2.0 <http://www.thlib.org/reference/transliteration/#essay=/thl/ewts>.")
+
+(title "ཀ")
 
 (variable
  (precomposed
@@ -34,8 +36,6 @@ If 1, generate precomposed characters if available (e.g. \"ྲྀ\"(U+0F76).
 If 0, generate only decomposed characters (e.g. \"ྲྀ\" (U+0FB2 U+0F80).")
   0 0 1))
 
-(title "ཀ")
-
 (map
  ;; This map is used also for subjoined consonants.
  (consonant
@@ -269,19 +269,21 @@ If 0, generate only decomposed characters (e.g. \"ྲྀ\" (U+0FB2 U+0F80).")
   ("<" "༺")
   (">" "༻")
   ("(" "༼")
-  (">" "༽")
+  (")" "༽")
   ;; Miscellaneous
   ("~X" "༵")
   ("X" "༷")
   ("^" "༹"))
  
  (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,8 +316,9 @@ If 0, generate only decomposed characters (e.g. \"ྲྀ\" (U+0FB2 U+0F80).")
   (sanskrit (shift after-consonant))
   (vowel (move @<) "ཨ" (move @>) (shift after-vowel))
   (others)
-  (escape)
-  (backsapce))
+  (escape (shift dispatch-escape))
+  (non-tibetan (shift non-tibetan))
+  (backspace))
 
  (after-consonant
   (force-stack (shift consonant-stack))
@@ -338,8 +341,8 @@ If 0, generate only decomposed characters (e.g. \"ྲྀ\" (U+0FB2 U+0F80).")
   (vowel (shift after-vowel)))
 
  (dispatch-escape
-  (unicode)
-  (nil (delete @BEG) (shift init) (unhandle)))
+  (unicode (shift unicode))
+  (nil (delete BEG) (shift init) (unhandle)))
 
  (unicode
   "ཀu"
@@ -347,7 +350,7 @@ If 0, generate only decomposed characters (e.g. \"ྲྀ\" (U+0FB2 U+0F80).")
   (hexadigit (cond ((> @-1 ?9) (set UNICODE (+ (* UNICODE 16) (- @-1 55))))
                   (1 (set UNICODE (+ (* UNICODE 16) (- @-1 48)))))
             (set COUNT (+ COUNT 1))
-            (cond ((= COUNT MAX-COUNT) (delete @BEG) (insert UNICODE)
+            (cond ((= COUNT MAX-COUNT) (delete BEG) (insert UNICODE)
                    (shift init)))))
 
  (non-tibetan