From 23551a3cdf4b9176db8d9c1286e2015fc68da213 Mon Sep 17 00:00:00 2001 From: handa Date: Mon, 14 Jul 2008 10:15:59 +0000 Subject: [PATCH] Change the marker name @BEG to BEG. --- MIM/bo-ewts.mim | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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 -- 1.7.10.4