;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:15:51 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/language/tv-util.el
;;; in Emacs version 24.0.50.1
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`tv-util.el' was compiled for Emacs 23 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\306B\307\310!\210\311B\312\313\314!\315\316\n\317\320B\321#\210\316\n\322\323B\321#\210	\314\211\203^\f@\211@A
G\324W\203V\n
HI\210T\211\202>,\fA\211\204+*\n*!\207" [current-load-list specials table elt --dolist-tail-- chars tai-viet-re (lambda (#1=#:defconst-tmp-var) (defconst tai-viet-re #1#)) "[êª€-ê«‚ê«›-ê«Ÿ]+" tai-viet-glyph-info (lambda (#2=#:defconst-tmp-var) (defconst tai-viet-glyph-info #2#)) make-char-table nil ((right-overhang . "êªŠêª‹êªŒêª�êª�êª“êª–êªœêªžêª¡êª¤êª¨") (left-overhang . "ê«‚") (combining-vowel . "êª°êª²êª³êª´êª·êª¸êª¾") (combining-tone . "êª¿ê«�") (misc . "-")) set-char-table-range 43648 43714 t 43739 43743 0 category i --dotimes-limit--] 6)
#@68 Compose Tai Viet characters in STRING between indices FROM and TO.
(defalias 'tai-viet-compose-string #[(from to string) "	H\nH\306\f\307=\203\310	\211T\300\n\311\"$\210	T\f	
W\203Y\312	H\211Y\203Y\313\nX\203Y\nH\211\307=\203Q
\307=\203Q\310	\211T\300\311\n\"#\210	T\f\202 \f\314=\203j\310	S	\300\n\311\"$\210	+\207" [string from ch tai-viet-glyph-info info prev-info nil non-spacing compose-string 9 43648 43743 right-overhang to] 8 (#$ . 1273)])
#@64 Compose Tai Viet characters in the region between FROM and TO.
(defalias 'tai-viet-compose-region #[(from to) "\306	\"\210\307\310\311\211\211\211\211\211	W\2030\204.fHT
\204>\311\211\202
\312>\203X\313S\314\315\"#\210\316\311\202S
\317=\203h\317\202u?\205u
\320=\205u\320\316\311	W\203fH\211\203
\321>\203\364ET\311	W\203\310fH\211\203\310
\322=\203\310D\244T\n\320=\203\330\315BB\202\353\n\317=\203\353	Y\203\353\315D\244\313\f#\210\202\n\320=\203\313\f\314\315\"#\210\202\n\320=\203\313\f\314\315\"#\210\202\n\317=\203	Y\203\313\f\314\315\"#\210\202.\207" [from to overhang components pos info decompose-region (Br . Bl) (tr . bl) nil (combining-vowel combining-tone) compose-region string 9 t right-overhang left-overhang (combining-vowel combining-tone) combining-tone ch prev-viet tone-rule normal-rule tai-viet-glyph-info] 9 (#$ . 1752)])
(defalias 'tai-viet-composition-function #[(from to font-object string) "\203\303	\n#\205!\304\n\305\225#\207\nb\210\306	!\205!\307\n\305\225\"\207" [string tai-viet-re from string-match tai-viet-compose-string 0 looking-at tai-viet-compose-region] 4])
(provide 'tai-viet-util)
