| Current Path : /usr/share/emacs/24.3/lisp/language/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/language/thai-util.elc |
;ELC ;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:58 2024 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/language/thai-util.el ;;; in Emacs version 24.3.1 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defconst thai-category-table (make-category-table)) (byte-code "\301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\313#\210\301\314\315#\207" [thai-category-table define-category 99 "Thai consonant" 118 "Thai upper/lower vowel" 116 "Thai tone mark" 117 "Thai tone mark and upper sign" 73 "THAI CHARACTER SARA I" 85 "THAI CHARACTER THANTHAKHAT"] 4) #@56 Regular expression matching a Thai composite sequence. (defvar thai-composition-pattern "\\cc\\(\\cu\\|\\cI\\cU\\|\\cv\\ct?\\)\\|\\cv\\ct\\|\\cI\\cU" (#$ . 942)) (byte-code "\305\306 \203~ @ A@A@\307 \310\n#\210\n\311=\203* \312 \313\f#\210\202r \n\314>\203E \312 \315\f#\210 \316U\203r \312 \317\f#\210\202r \n\320=\203Z \312 \321\f#\210\312 \322\f#\210\202r \n\323=\203r \312 \322\f#\210 \324U\203r \312 \325\f#\210\307 \326\3278#\210*\202 *\306\207" [elm l ptype char thai-category-table ((3585 consonant "LETTER KO KAI") (3586 consonant "LETTER KHO KHAI") (3587 consonant "LETTER KHO KHUAT") (3588 consonant "LETTER KHO KHWAI") (3589 consonant "LETTER KHO KHON") (3590 consonant "LETTER KHO RAKHANG") (3591 consonant "LETTER NGO NGU") (3592 consonant "LETTER CHO CHAN") (3593 consonant "LETTER CHO CHING") (3594 consonant "LETTER CHO CHANG") (3595 consonant "LETTER SO SO") (3596 consonant "LETTER CHO CHOE") (3597 consonant "LETTER YO YING") (3598 consonant "LETTER DO CHADA") (3599 consonant "LETTER TO PATAK") (3600 consonant "LETTER THO THAN") (3601 consonant "LETTER THO NANGMONTHO") (3602 consonant "LETTER THO PHUTHAO") (3603 consonant "LETTER NO NEN") (3604 consonant "LETTER DO DEK") (3605 consonant "LETTER TO TAO") (3606 consonant "LETTER THO THUNG") (3607 consonant "LETTER THO THAHAN") (3608 consonant "LETTER THO THONG") (3609 consonant "LETTER NO NU") (3610 consonant "LETTER BO BAIMAI") (3611 consonant "LETTER PO PLA") (3612 consonant "LETTER PHO PHUNG") (3613 consonant "LETTER FO FA") (3614 consonant "LETTER PHO PHAN") (3615 consonant "LETTER FO FAN") (3616 consonant "LETTER PHO SAMPHAO") (3617 consonant "LETTER MO MA") (3618 consonant "LETTER YO YAK") (3619 consonant "LETTER RO RUA") (3620 vowel-base "LETTER RU (Pali vowel letter)") (3621 consonant "LETTER LO LING") (3622 vowel-base "LETTER LU (Pali vowel letter)") (3623 consonant "LETTER WO WAEN") (3624 consonant "LETTER SO SALA") (3625 consonant "LETTER SO RUSI") (3626 consonant "LETTER SO SUA") (3627 consonant "LETTER HO HIP") (3628 consonant "LETTER LO CHULA") (3629 consonant "LETTER O ANG") (3630 consonant "LETTER HO NOK HUK") (3631 special "PAI YAN NOI (abbreviation)") (3632 vowel-base "VOWEL SIGN SARA A") (3633 vowel-upper "VOWEL SIGN MAI HAN-AKAT N/S-T") (3634 vowel-base "VOWEL SIGN SARA AA") (3635 vowel-base "VOWEL SIGN SARA AM") (3636 vowel-upper "VOWEL SIGN SARA I N/S-T") (3637 vowel-upper "VOWEL SIGN SARA II N/S-T") (3638 vowel-upper "VOWEL SIGN SARA UE N/S-T") (3639 vowel-upper "VOWEL SIGN SARA UEE N/S-T") (3640 vowel-lower "VOWEL SIGN SARA U N/S-B") (3641 vowel-lower "VOWEL SIGN SARA UU N/S-B") (3642 vowel-lower "VOWEL SIGN PHINTHU N/S-B (Pali virama)") (3643 invalid nil) (3644 invalid nil) (3645 invalid nil) (3646 invalid nil) (3647 special "BAHT SIGN (currency symbol)") (3648 vowel-base "VOWEL SIGN SARA E") (3649 vowel-base "VOWEL SIGN SARA AE") (3650 vowel-base "VOWEL SIGN SARA O") (3651 vowel-base "VOWEL SIGN SARA MAI MUAN") (3652 vowel-base "VOWEL SIGN SARA MAI MALAI") (3653 vowel-base "LAK KHANG YAO") (3654 special "MAI YAMOK (repetition)") (3655 sign-upper "VOWEL SIGN MAI TAI KHU N/S-T") (3656 tone "TONE MAI EK N/S-T") (3657 tone "TONE MAI THO N/S-T") (3658 tone "TONE MAI TRI N/S-T") (3659 tone "TONE MAI CHATTAWA N/S-T") (3660 sign-upper "THANTHAKHAT N/S-T (cancellation mark)") (3661 sign-upper "NIKKHAHIT N/S-T (final nasal)") (3662 sign-upper "YAMAKKAN N/S-T") (3663 special "FONRMAN") (3664 special "DIGIT ZERO") (3665 special "DIGIT ONE") (3666 special "DIGIT TWO") (3667 special "DIGIT THREE") (3668 special "DIGIT FOUR") (3669 special "DIGIT FIVE") (3670 special "DIGIT SIX") (3671 special "DIGIT SEVEN") (3672 special "DIGIT EIGHT") (3673 special "DIGIT NINE") (3674 special "ANGKHANKHU (ellipsis)") (3675 special "KHOMUT (beginning of religious texts)") (3676 invalid nil) (3677 invalid nil) (3678 invalid nil)) nil put-char-code-property phonetic-type consonant modify-category-entry 99 (vowel-upper vowel-lower) 118 3636 73 tone 116 117 sign-upper 3660 85 name 2] 5) (defalias 'thai-compose-syllable #[(beg end &optional category-set string) "\204 \304 \203 \nH\202 \nf!\305H\203. \203& \306 \n #\210\202P \307\n \"\210\202P \203D \306 \n \nH\310 \nTHE$\210\202P \307\n \nf\311\nTfE#\210 \nZ\207" [category-set string beg end char-category-set 99 compose-string compose-region (Bc . Bc) (Bc . Bc)] 8]) #@146 Compose Thai characters in the region. When called from a program, expects two arguments, positions (integers or markers) specifying the region. (defalias 'thai-compose-region #[(beg end) "`\214 \n}\210eb\210\306 p \307\216\310 !\210\311\312\313#\203> \314\224\314\225 V\2032 \nW\2032 \n\315 \n\316 f!#\210\202 ,b)\207" [pos beg end #1=#:old-buffer #2=#:old-table thai-category-table category-table ((byte-code "rq\210\302 !\210)\302\207" [#1# #2# set-category-table] 2)) set-category-table re-search-forward nil t 0 thai-compose-syllable char-category-set thai-composition-pattern] 5 (#$ . 5312) "r"]) #@68 Compose Thai characters in STRING and return the resulting string. (defalias 'thai-compose-string #[(string) "\306 p\307\216\310\n!\210\311\312\f #\211\203% \313 \311\225\314 $\210\311\225\202 , \207" [#1=#:old-buffer #2=#:old-table thai-category-table idx thai-composition-pattern string category-table ((byte-code "rq\210\302 !\210)\302\207" [#1# #2# set-category-table] 2)) set-category-table 0 string-match thai-compose-syllable nil] 5 (#$ . 5933)]) #@48 Compose Thai characters in the current buffer. (defalias 'thai-compose-buffer #[nil "\300ed\"\207" [thai-compose-region] 3 (#$ . 6401) nil]) (defalias 'thai-composition-function #[(gstring) "\211\211\305H)GS)\306U\203 \307!\207\310!\206l \211G\311Z)\211\211\211\305H)GS)S\211\211\305H) TH*\305\312 \fW\203\\ \211 \311\\H*\211\203\\ T\211\202A \313U\203e S\314\305 \315$,\207" [gstring i glyph last-char glyph-len 0 1 compose-gstring-for-graphic font-shape-gstring 2 nil 3635 compose-glyph-string-relative 0.1] 6]) (require 'thai-word) #@30 Keymap for `thai-word-mode'. (defvar thai-word-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210)\207" [map make-sparse-keymap define-key [remap forward-word] thai-forward-word [remap backward-word] thai-backward-word [remap kill-word] thai-kill-word [remap backward-kill-word] thai-backward-kill-word [remap transpose-words] thai-transpose-words] 4) (#$ . 6971)) #@263 Non-nil if Thai-Word mode is enabled. See the command `thai-word-mode' for a description of this minor mode. Setting this variable directly does not take effect; either customize it (see the info node `Easy Customization') or call the function `thai-word-mode'. (custom-declare-variable 'thai-word-mode nil '(#$ . 7411) :set 'custom-set-minor-mode :initialize 'custom-initialize-default :group 'mule :type 'boolean) #@360 Minor mode to make word-oriented commands aware of Thai words. With a prefix argument ARG, enable the mode if ARG is positive, and disable it otherwise. If called from Lisp, enable the mode if ARG is omitted or nil. The commands affected are \[forward-word], \[backward-word], \[kill-word], \[backward-kill-word], \[transpose-words], and \[fill-paragraph]. (defalias 'thai-word-mode #[(&optional arg) "\303 \304=\203 \n?\202 \305 !\306V\211\203( \307\310\311!\312\"\210\313\311\314\315#\210\2027 \307\310\311!\312\316\317$\210\313\311\314\316#\210\320\321\n\203A \322\202B \323\"\210\324\325!\203g \326\302!\210\303 \203Z \303 \232\203g \327\330\n\203d \331\202e \332\"\210)\333 \210\n\207" [#1=#:last-message arg thai-word-mode current-message toggle prefix-numeric-value 0 modify-category-entry make-char thai-tis620 124 put-charset-property fill-find-break-point-function thai-fill-find-break-point nil t run-hooks thai-word-mode-hook thai-word-mode-on-hook thai-word-mode-off-hook called-interactively-p any customize-mark-as-set message "Thai-Word mode %sabled" "en" "dis" force-mode-line-update] 6 (#$ . 7834) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\300!\205\n \303\211%\207" [thai-word-mode-map add-minor-mode thai-word-mode nil boundp] 6) (defalias 'setup-thai-language-environment-internal #[nil "\300\301!\207" [thai-word-mode 1] 2]) (defalias 'exit-thai-language-environment-internal #[nil "\300\301!\207" [thai-word-mode -1] 2]) (provide 'thai-util)