%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/share/emacs/27.2/lisp/language/
Upload File :
Create Path :
Current File : //usr/local/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\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\364ET\311	W\203\310fH\211\203\310
\322=\203\310D\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)

Zerion Mini Shell 1.0