Change the marker name @BEG to BEG.
authorhanda <handa>
Mon, 14 Jul 2008 10:15:59 +0000 (10:15 +0000)
committerhanda <handa>
Mon, 14 Jul 2008 10:15:59 +0000 (10:15 +0000)
MIM/bo-ewts.mim

index a82c732..6376c56 100644 (file)
@@ -276,7 +276,7 @@ If 0, generate only decomposed characters (e.g. \"ྲྀ\" (U+0FB2 U+0F80).")
   ("^" "༹"))
  
  (escape
-  ("\\" (mark @BEG) "\\"))
+  ("\\" (mark BEG) "\\"))
 
  (non-tibetan
   ("["))
@@ -342,7 +342,7 @@ If 0, generate only decomposed characters (e.g. \"ྲྀ\" (U+0FB2 U+0F80).")
 
  (dispatch-escape
   (unicode (shift unicode))
-  (nil (delete @BEG) (shift init) (unhandle)))
+  (nil (delete BEG) (shift init) (unhandle)))
 
  (unicode
   "ཀu"
@@ -350,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