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



(defconst tibetan-obsolete-glyphs (byte-code "\300\301\302\303\304\305\306\307\310\311\307!\312\313\314$B\315\310\311\316!\312\317\320$B\321\310\311\322!\312\313\323$B\324\310\311\325!\312\313\326$B\327\310\311\330!\312\331\332$B\257\f\207" [("།" . "།") ("༏" . "༏") ("༐" . "༐") ("༑" . "༑") ("ཿ" . "ཿ") ("་" . "་") ("༔" . "༔") "༎ ༎" compose-string copy-sequence 0 3 [3854 (Br . Bl) 32 (Br . Bl) 3854] "༄༅༅" "࿁࿂࿂࿂" 4 [4033 (Br . Bl) 4034 (Br . Bl) 4034 (Br . Bl) 4034] "༄༅" "࿁࿂࿂" [4033 (Br . Bl) 4034 (Br . Bl) 4034] "༆" "࿁࿂༙" [4033 (Br . Bl) 4034 (br . tr) 3865] "༄" "࿁࿂" 2 [4033 (Br . Bl) 4034]] 17))
#@108 Check if char CH is Tibetan character.
Returns non-nil if CH is Tibetan.  Otherwise, returns nil.

(fn CH)
(defalias 'tibetan-char-p #[257 "\300
!\301>\207" [char-charset (tibetan tibetan-1-column)] 3 (#$ . 756)])
#@84 Transcribe Tibetan string STR and return the corresponding Roman string.

(fn STR)
(defalias 'tibetan-tibetan-to-transcription #[257 "\306
G\307\306\211W\203Y\310#\211=\203.\307\225\262\311\312\313\307\n\"	\"A\n\"@\262\202O\211TO\262T\262\311\"\206L\311\f\"\206L\311
\"@\262
B\262\210\202\314\315\237\"\207" [tibetan-precomposition-rule-regexp tibetan-precomposition-rule-alist tibetan-precomposed-transcription-alist tibetan-consonant-transcription-alist tibetan-vowel-transcription-alist tibetan-subjoined-transcription-alist nil 0 string-match rassoc assoc match-string apply concat] 12 (#$ . 976)])
#@125 Convert Tibetan Roman string STR to Tibetan character string.
The returned string has no composition information.

(fn STR)
(defalias 'tibetan-transcription-to-tibetan #[257 "\306\307\306\211\211\310	#\211\262\203gW\203\"OB\262\311\307\"\262
\307\225\262\312
\n\"A\211\203@\313
\"@\262
\202^\312\f\"\206[\312
\"\206[\312\"\206[\312\"A\262
\211B\262\210\202GW\203w\306OB\262\314\315\237\")\207" [case-fold-search tibetan-regexp tibetan-precomposed-transcription-alist tibetan-precomposition-rule-alist tibetan-consonant-transcription-alist tibetan-vowel-transcription-alist nil 0 string-match match-string assoc rassoc apply concat tibetan-modifier-transcription-alist tibetan-subjoined-transcription-alist] 10 (#$ . 1619)])
#@24 

(fn COMPONENTS CHAR)
(defalias 'tibetan-add-components #[514 "\302!\303\304\305\211\306>\203%\307\310\311!\"AA!\262
\310\311!\"A@\262\312!\313H\2034\262\202\220\312!\314H\203U\315=\204I\316=\203O\305\262\202\220\262\202\220@\317U\203l\320>\204l\321\240\210\262\202\220\311@!\322U\204\214\323\324\"\203\214\325\310\311	@!	\"A!\240\210\262\210
\203\233D\241\210\211\205\242
\244\207" [tibetan-composite-vowel-alist tibetan-base-to-subjoined-alist last (tc . bc) (bc . tc) nil (3955 3957 3958 3959 3960 3961 3969) copy-sequence assoc char-to-string char-category-set 50 51 1638542 3952 3938 (4013 3953 4017 4018) 1638401 3953 string-match "[ཀ-ཛྷཞཟལ-ཀྵཪ]" string-to-char] 13 (#$ . 2395)])
#@39 Compose Tibetan string STR.

(fn STR)
(defalias 'tibetan-compose-string #[257 "\303\304#\211\262\203\\\211\303\225\305\304	#=\2031\303\225\262\306\307\310\303\"\n\"A!C\262
\202;HC\262
T\262W\203Q\311
H\"\210T\262\202;\312$\266\202
\210\207" [tibetan-composable-pattern tibetan-precomposition-rule-regexp tibetan-precomposition-rule-alist 0 string-match nil string-to-char assoc match-string tibetan-add-components compose-string] 10 (#$ . 3153)])
#@60 Compose Tibetan text the region BEG and END.

(fn BEG END)
(defalias 'tibetan-compose-region #[514 "\212\214

}\210eb\210\303\304\305#\205U\306\224\306\225\304b\210\307	!\2032\310\311\312\306!\n\"A!C\262
\306\225b\210\202:fC\262
\313u\210`W\203K\314
g\"\210\313u\210\202:\315#\266\202	*\207" [tibetan-composable-pattern tibetan-precomposition-rule-regexp tibetan-precomposition-rule-alist re-search-forward nil t 0 looking-at string-to-char assoc match-string 1 tibetan-add-components compose-region] 9 (#$ . 3641) "r"])
(defvar tibetan-decompose-precomposition-alist (mapcar #[257 "\300
A!
@B\207" [string-to-char] 3 "\n\n(fn X)"] tibetan-precomposition-rule-alist))
#@202 Decompose Tibetan text in the region FROM and TO.
This is different from `decompose-region' because precomposed
Tibetan characters are decomposed into normal Tibetan character
sequences.

(fn FROM TO)
(defalias 'tibetan-decompose-region #[514 "\214

}\210\301\"\210
b\210m?\205-g\211\236\211\203&\302\303!\210\211Ac\266\202
\303u\266\202
)\207" [tibetan-decompose-precomposition-alist decompose-region delete-char 1] 6 (#$ . 4330) "r"])
#@178 Decompose Tibetan string STR.
This is different from `decompose-string' because precomposed
Tibetan characters are decomposed into normal Tibetan character
sequences.

(fn STR)
(defalias 'tibetan-decompose-string #[257 "\301
G\302\303\211W\203/H\262H\236\262

\203\"
A\202%\304!P\262T\262\202\207" [tibetan-decompose-precomposition-alist "" 0 nil char-to-string] 9 (#$ . 4783)])
(set-default 'tibetan-decomposed nil)
#@139 Decomposes Tibetan characters in the buffer into their components.
See also the documentation of the function `tibetan-decompose-region'.
(defalias 'tibetan-decompose-buffer #[0 "\301\300!\210?\205\302ed\"\210\303\211\207" [tibetan-decomposed make-local-variable tibetan-decompose-region t] 3 (#$ . 5226) nil])
#@115 Composes Tibetan character components in the buffer.
See also docstring of the function `tibetan-compose-region'.
(defalias 'tibetan-compose-buffer #[0 "\301\300!\210\302ed\"\210\303\211\207" [tibetan-decomposed make-local-variable tibetan-compose-region nil] 3 (#$ . 5548) nil])
#@12 

(fn LEN)
(defalias 'tibetan-post-read-conversion #[257 "\212\214\301 ``\\}\210\302ed\"\210\303
!\210\304\300!\210\305deZ\262
*\207" [tibetan-decomposed buffer-modified-p tibetan-compose-region set-buffer-modified-p make-local-variable nil] 5 (#$ . 5835)])
#@16 

(fn FROM TO)
(defalias 'tibetan-pre-write-conversion #[514 "p\302\303!q\210;\203c\210\202\304
#\210	\204\"\305ed\"\210\306\207" [tibetan-decomposed tibetan-decomposed-temp generate-new-buffer " *temp*" insert-buffer-substring tibetan-decompose-region nil] 7 (#$ . 6101)])
#@54 Rules for canonicalizing Tibetan vowels for Unicode.
(defvar tibetan-canonicalize-for-unicode-alist '(("����" . "") ("ཱི" . "ཱི") ("ཱུ" . "ཱུ") ("ྲྀ" . "ྲྀ") ("ཷ" . "ྲཱྀ") ("ླྀ" . "ླྀ") ("ཹ" . "ླཱྀ") ("ཱྀ" . "ཱྀ")) (#$ . 6392))
#@59 Regexp for Tibetan vowels to be canonicalized in Unicode.
(defvar tibetan-canonicalize-for-unicode-regexp "[����ཱཱིུྲྀཷླྀཹཱྀ]" (#$ . 6667))
#@16 

(fn FROM TO)
(defalias 'tibetan-canonicalize-for-unicode-region #[514 "\214

}\210
b\210\302\303\304#\205\305\306\307!	\"A\310
!\266\202)\207" [tibetan-canonicalize-for-unicode-regexp tibetan-canonicalize-for-unicode-alist re-search-forward nil t assoc match-string 0 replace-match] 6 (#$ . 6822)])
#@257 Flag to control Tibetan canonicalizing for Unicode.

If non-nil, the vowel a is removed and composite vowels are decomposed
before writing buffer in Unicode.  See also
`tibetan-canonicalize-for-unicode-regexp' and
`tibetan-canonicalize-for-unicode-alist'.
(defvar tibetan-strict-unicode t (#$ . 7136))
#@16 

(fn FROM TO)
(defalias 'tibetan-pre-write-canonicalize-for-unicode #[514 "p\301\302!q\210;\203c\210\202\303#\210\211\203!\304ed\"\210\305\207" [tibetan-strict-unicode generate-new-buffer " *temp*" insert-buffer-substring tibetan-canonicalize-for-unicode-region nil] 8 (#$ . 7444)])
(provide 'tibet-util)