HOME

Mini Shell 1.0
DIR:/usr/share/emacs/26.1/lisp/language/
Current File : //usr/share/emacs/26.1/lisp/language/thai-util.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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" (#$ . 789))
(byte-code "\305\306	\203v	@	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*\202*\306\207" [elm l ptype char thai-category-table ((3585 consonant) (3586 consonant) (3587 consonant) (3588 consonant) (3589 consonant) (3590 consonant) (3591 consonant) (3592 consonant) (3593 consonant) (3594 consonant) (3595 consonant) (3596 consonant) (3597 consonant) (3598 consonant) (3599 consonant) (3600 consonant) (3601 consonant) (3602 consonant) (3603 consonant) (3604 consonant) (3605 consonant) (3606 consonant) (3607 consonant) (3608 consonant) (3609 consonant) (3610 consonant) (3611 consonant) (3612 consonant) (3613 consonant) (3614 consonant) (3615 consonant) (3616 consonant) (3617 consonant) (3618 consonant) (3619 consonant) (3620 vowel-base) (3621 consonant) (3622 vowel-base) (3623 consonant) (3624 consonant) (3625 consonant) (3626 consonant) (3627 consonant) (3628 consonant) (3629 consonant) (3630 consonant) (3631 special) (3632 vowel-base) (3633 vowel-upper) (3634 vowel-base) (3635 vowel-base) (3636 vowel-upper) (3637 vowel-upper) (3638 vowel-upper) (3639 vowel-upper) (3640 vowel-lower) (3641 vowel-lower) (3642 vowel-lower) (3643 invalid) (3644 invalid) (3645 invalid) (3646 invalid) (3647 special) (3648 vowel-base) (3649 vowel-base) (3650 vowel-base) (3651 vowel-base) (3652 vowel-base) (3653 vowel-base) (3654 special) (3655 sign-upper) (3656 tone) (3657 tone) (3658 tone) (3659 tone) (3660 sign-upper) (3661 sign-upper) (3662 sign-upper) (3663 special) (3664 special) (3665 special) (3666 special) (3667 special) (3668 special) (3669 special) (3670 special) (3671 special) (3672 special) (3673 special) (3674 special) (3675 special) (3676 invalid) (3677 invalid) (3678 invalid)) 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] 4)
(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 #[nil "rq\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 (#$ . 3338) "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 #[nil "rq\210\302	!)\207" [#1# #2# set-category-table] 2] set-category-table 0 string-match thai-compose-syllable nil] 5 (#$ . 3944)])
#@48 Compose Thai characters in the current buffer.
(defalias 'thai-compose-buffer #[nil "\300ed\"\207" [thai-compose-region] 3 (#$ . 4397) 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) (#$ . 4967))
#@263 Non-nil if Thai-Word mode is enabled.
See the `thai-word-mode' command
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 '(#$ . 5407) :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) "\304 \305\302	\306=\203\307\302!?\202\310	!\311V\"\210\n\203-\312\313\314!\315\"\210\316\314\317\320#\210\202<\312\313\314!\315\321\322$\210\316\314\317\321#\210\323\324\307\302!\203H\325\202I\326\"\210\327\330!\203t\331\302!\210\304 \203a\304 \232\203t\332\333\334\307\302!\203o\335\202p\336#\210))\337 \210\307\302!\207" [#1=#:last-message arg thai-word-mode local current-message set-default toggle default-value 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%s" "en" "dis" force-mode-line-update] 5 (#$ . 5830) (list (or current-prefix-arg 'toggle))])
(defvar thai-word-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\305\306\307\310\300!\205\307\211%\207" [thai-word-mode-map thai-word-mode-hook variable-documentation put "Hook run after entering or leaving `thai-word-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it.  (This is true for all hook variables.)" 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)