("^" "༹"))
(escape
- ("\\" (mark @BEG) "\\"))
+ ("\\" (mark BEG) "\\"))
(non-tibetan
("["))
(dispatch-escape
(unicode (shift unicode))
- (nil (delete @BEG) (shift init) (unhandle)))
+ (nil (delete BEG) (shift init) (unhandle)))
(unicode
"ཀu"
(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