;ELC ;;; Compiled ;;; in Emacs version 27.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 "`%s' was compiled for Emacs 23 or later" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defconst tai-viet-re "[ꪀ-ꫂꫛ-꫟]+") (defconst tai-viet-glyph-info (byte-code "\306\307!\310\311 \312\313B\314#\210\311 \315\316B\314#\210\307\211\203O @\211@\nA\fG\317W\203G \fH I\210T\211\2020, A\211\204* *\207" [specials table elt --dolist-tail-- chars category make-char-table nil ((right-overhang . "ꪊꪋꪌꪍꪏꪓꪖꪜꪞꪡꪤꪨ") (left-overhang . "ꫂ") (combining-vowel . "ꪴꪰꪲꪳꪷꪸꪾ") (combining-tone . "꪿꫁") (misc . "-")) set-char-table-range 43648 43714 t 43739 43743 0 i --dotimes-limit--] 5)) #@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 (#$ . 970)]) #@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\364 ET\311 W\203\310fH\211\203\310 \322=\203\310 D\244T\n\320=\203\330\315 BB\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 (#$ . 1448)]) (defalias 'tai-viet-composition-function #[(from to font-object string _direction) "\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)