Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
burmese.elc	1.32 KB	-rw-r--r--
cham.elc	700 B	-rw-r--r--
china-util.elc	3.87 KB	-rw-r--r--
chinese.elc	6.96 KB	-rw-r--r--
cyril-util.elc	5.08 KB	-rw-r--r--
cyrillic.elc	5.26 KB	-rw-r--r--
czech.elc	927 B	-rw-r--r--
english.elc	1.2 KB	-rw-r--r--
ethio-util.elc	54.93 KB	-rw-r--r--
ethiopic.elc	1.72 KB	-rw-r--r--
european.elc	16.89 KB	-rw-r--r--
georgian.elc	971 B	-rw-r--r--
greek.elc	1.41 KB	-rw-r--r--
hanja-util.elc	403.75 KB	-rw-r--r--
hebrew.elc	4.82 KB	-rw-r--r--
ind-util.elc	42.46 KB	-rw-r--r--
indian.elc	8.21 KB	-rw-r--r--
japan-util.elc	10.71 KB	-rw-r--r--
japanese.elc	7.39 KB	-rw-r--r--
khmer.elc	829 B	-rw-r--r--
korea-util.elc	3.57 KB	-rw-r--r--
korean.elc	2.1 KB	-rw-r--r--
lao-util.elc	10.98 KB	-rw-r--r--
lao.elc	1.59 KB	-rw-r--r--
misc-lang.elc	3.57 KB	-rw-r--r--
pinyin.elc	26.51 KB	-rw-r--r--
romanian.elc	1.18 KB	-rw-r--r--
sinhala.elc	852 B	-rw-r--r--
slovak.elc	936 B	-rw-r--r--
tai-viet.elc	1.6 KB	-rw-r--r--
thai-util.elc	7.71 KB	-rw-r--r--
thai-word.elc	198.59 KB	-rw-r--r--
thai.elc	1.93 KB	-rw-r--r--
tibet-util.elc	7.98 KB	-rw-r--r--
tibetan.elc	10.02 KB	-rw-r--r--
tv-util.elc	2.67 KB	-rw-r--r--
utf-8-lang.elc	728 B	-rw-r--r--
viet-util.elc	4.39 KB	-rw-r--r--
vietnamese.elc	2.31 KB	-rw-r--r--

Code Editor : tv-util.elc

;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\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�\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 (#$ . 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)

${this.title}

Code Editor : tv-util.elc