Gecko [ goons4good.org ]

Name	Size	Permission	Date
burmese.elc	1.46 KB	-rw-r--r--	2023-06-07 04:19
cham.elc	842 B	-rw-r--r--	2023-06-07 04:19
china-util.elc	3.36 KB	-rw-r--r--	2023-06-07 04:04
chinese.elc	7.11 KB	-rw-r--r--	2023-06-07 04:18
cyril-util.elc	5.12 KB	-rw-r--r--	2023-06-07 04:04
cyrillic.elc	5.4 KB	-rw-r--r--	2023-06-07 04:18
czech.elc	1.04 KB	-rw-r--r--	2023-06-07 04:18
english.elc	1.2 KB	-rw-r--r--	2023-06-07 04:18
ethio-util.elc	54.9 KB	-rw-r--r--	2023-06-07 04:04
ethiopic.elc	1.86 KB	-rw-r--r--	2023-06-07 04:18
european.elc	16.37 KB	-rw-r--r--	2023-06-07 04:18
georgian.elc	1.09 KB	-rw-r--r--	2023-06-07 04:19
greek.elc	1.55 KB	-rw-r--r--	2023-06-07 04:18
hanja-util.elc	403.94 KB	-rw-r--r--	2023-06-07 04:04
hebrew.elc	4.86 KB	-rw-r--r--	2023-06-07 04:18
ind-util.elc	42.58 KB	-rw-r--r--	2023-06-07 04:04
indian.elc	8.38 KB	-rw-r--r--	2023-06-07 04:18
japan-util.elc	10.85 KB	-rw-r--r--	2023-06-07 04:04
japanese.elc	7.61 KB	-rw-r--r--	2023-06-07 04:19
khmer.elc	972 B	-rw-r--r--	2023-06-07 04:19
korea-util.elc	3.72 KB	-rw-r--r--	2023-06-07 04:04
korean.elc	2.24 KB	-rw-r--r--	2023-06-07 04:18
lao-util.elc	12.34 KB	-rw-r--r--	2023-06-07 04:04
lao.elc	1.73 KB	-rw-r--r--	2023-06-07 04:19
misc-lang.elc	1.88 KB	-rw-r--r--	2023-06-07 04:19
romanian.elc	1.33 KB	-rw-r--r--	2023-06-07 04:18
sinhala.elc	997 B	-rw-r--r--	2023-06-07 04:18
slovak.elc	1.05 KB	-rw-r--r--	2023-06-07 04:18
tai-viet.elc	1.69 KB	-rw-r--r--	2023-06-07 04:19
thai-util.elc	9.11 KB	-rw-r--r--	2023-06-07 04:04
thai-word.elc	198.81 KB	-rw-r--r--	2023-06-07 04:04
thai.elc	2.07 KB	-rw-r--r--	2023-06-07 04:19
tibet-util.elc	8.12 KB	-rw-r--r--	2023-06-07 04:04
tibetan.elc	10.1 KB	-rw-r--r--	2023-06-07 04:19
tv-util.elc	2.81 KB	-rw-r--r--	2023-06-07 04:04
utf-8-lang.elc	876 B	-rw-r--r--	2023-06-07 04:19
viet-util.elc	4.54 KB	-rw-r--r--	2023-06-07 04:04
vietnamese.elc	2.45 KB	-rw-r--r--	2023-06-07 04:19

Rename

;ELC���
;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun  7 08:04:35 2023
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/language/tv-util.el
;;; in Emacs version 24.3.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 (#$ . 1117)])
#@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 (#$ . 1596)])
(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)