| Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/language/tv-util.elc |
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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\317 W\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\202 S
\317=\203h \317\202u ?\205u
\320=\205u \320\316\311 W\203fH\211\203
\321>\203\364 ET\311 W\203\310 fH\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)