From: handa <handa>
Date: Mon, 14 Jul 2008 10:15:59 +0000 (+0000)
Subject: Change the marker name @BEG to BEG.
X-Git-Tag: REL-1-5-3~52
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=23551a3cdf4b9176db8d9c1286e2015fc68da213;p=m17n%2Fm17n-db.git

Change the marker name @BEG to BEG.
---

diff --git a/MIM/bo-ewts.mim b/MIM/bo-ewts.mim
index a82c732..6376c56 100644
--- a/MIM/bo-ewts.mim
+++ b/MIM/bo-ewts.mim
@@ -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