;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(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" (#$ . 465))
(byte-code "\301\302
\203l
@\262

A\262\211@
A@\303\304#\210\211\305\267\266\202\306\307#\266\202\306\310#\210
\311U\203g\306\312#\266\202\306\313#\210\306\314#\266\202\306\314#\210
\315U\203g\306\316#\266\202\266\202\210\207" [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 #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (consonant 33 vowel-upper 43 vowel-lower 43 tone 65 sign-upper 81)) modify-category-entry 99 118 3636 73 116 117 3660 85] 8)
#@46 

(fn BEG END &optional CATEGORY-SET STRING)
(defalias 'thai-compose-syllable #[1026 "
\204\300
\203
H\202f!\262
\301H\203/\211\203'\302
#\210\202V\303\"\210\202V\211\203H\302
H\304\nTHE$\210\202V\303f\305TfE#\210Z\207" [char-category-set 99 compose-string compose-region (Bc . Bc) (Bc . Bc)] 12 (#$ . 2735)])
#@160 Compose Thai characters in the region.
When called from a program, expects two arguments,
positions (integers or markers) specifying the region.

(fn BEG END)
(defalias 'thai-compose-region #[514 "`\214}\210eb\210\302 p\303\304#\216\305!\210\306	\307\310#\203B\311\224\262\311\225\262V\2035W\2035\262\312\313f!#\210\202)\266)\211b\207" [thai-category-table thai-composition-pattern category-table make-closure #[0 "r\301q\210\302\300!)\207" [V0 V1 set-category-table] 2] set-category-table re-search-forward nil t 0 thai-compose-syllable char-category-set] 10 (#$ . 3087) "r"])
#@81 Compose Thai characters in STRING and return the resulting string.

(fn STRING)
(defalias 'thai-compose-string #[257 "\302 p\303\304#\216\305!\210\306\307	#\211\262\203)\310
\306\225\311$\210\306\225\262
\202\210)\266\207" [thai-category-table thai-composition-pattern category-table make-closure #[0 "r\301q\210\302\300!)\207" [V0 V1 set-category-table] 2] set-category-table 0 string-match thai-compose-syllable nil] 9 (#$ . 3694)])
#@48 Compose Thai characters in the current buffer.
(defalias 'thai-compose-buffer #[0 "\300ed\"\207" [thai-compose-region] 3 (#$ . 4147) nil])
#@26 

(fn GSTRING DIRECTION)
(defalias 'thai-composition-function #[514 "
\211\211\300H\262
GS\262
\301U\203\302\"\207\303\"\206g
\211G\304Z\262
\211\211\211\300H\262
GS\262
S
\211\300H\262

TH\266\202\300\211W\203U


\304\\H\266\202\203U\211T\262
\202<
\305U\203_\211S\262
\306\300\307$\266\203\207" [0 1 compose-gstring-for-graphic font-shape-gstring 2 3635 compose-glyph-string-relative 0.1] 10 (#$ . 4292)])
(require 'thai-word)
#@30 Keymap for `thai-word-mode'.
(defvar thai-word-mode-map (byte-code "\300 \301
\302\303#\210\301
\304\305#\210\301
\306\307#\210\301
\310\311#\210\301
\312\313#\210\207" [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] 5) (#$ . 4743))
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313\314\315&\207" [custom-declare-variable thai-word-mode funcall function #[0 "\300\207" [nil] 1 ""] "Non-nil if Thai-Word mode is enabled.\nSee the `thai-word-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `thai-word-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :type boolean :group mule] 12)
#@778 Minor mode to make word-oriented commands aware of Thai words.

This is a minor mode.  If called interactively, toggle the `Thai-Word
mode' mode.  If the prefix argument is positive, enable the mode, and
if it is zero or negative, disable the mode.

If called from Lisp, toggle the mode if ARG is `toggle'.  Enable the
mode if ARG is nil, omitted, or is a positive number.  Disable the
mode if ARG is a negative number.

To check whether the minor mode is enabled in the current buffer,
evaluate `(default-value \='thai-word-mode)'.

The mode's hook is called both when the mode is enabled and when it is
disabled.

The commands affected are \[forward-word], \[backward-word],
\[kill-word], \[backward-kill-word], \[transpose-words], and
\[fill-paragraph].

(fn &optional ARG)
(defalias 'thai-word-mode #[256 "\302 \303\301\304=\203\305\301!?\202!\247\203 \306W\203 \307\202!\310\"\210\311\300!\2038\312\301\"\305\301!\2038\301B	\203L\313\314\315!\316\"\210\317\315\320\321#\210\202[\313\314\315!\316\307\310$\210\317\315\320\307#\210\322\323\305\301!\203g\324\202h\325\"\210\326\327!\203\220\330\301!\210\302 \203\200\211\302 \232\203\220\331\332\305\301!\203\214\333\202\215\334\335#\210\210\336 \210\305\301!\207" [global-minor-modes thai-word-mode current-message set-default toggle default-value 1 nil t boundp delq modify-category-entry make-char thai-tis620 124 put-charset-property fill-find-break-point-function thai-fill-find-break-point 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] 7 (#$ . 5703) (byte-code "\203\n\301!\202\302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)])
(defvar thai-word-mode-hook nil)
(byte-code "\301\302N\204\f\303\301\302\304#\210\303\301\305\306#\210\303\301\307\310C#\210\311\312\310\313\300!\205#\310\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.)" custom-type hook standard-value nil add-minor-mode thai-word-mode boundp] 6)
(defalias 'setup-thai-language-environment-internal #[0 "\300\301!\207" [thai-word-mode 1] 2])
(defalias 'exit-thai-language-environment-internal #[0 "\300\301!\207" [thai-word-mode -1] 2])
(provide 'thai-util)