;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/tibet-util.el
;;; in Emacs version 24.3.1
;;; 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 tibetan-obsolete-glyphs (byte-code "\300\301\302\303\304\305\306\307\310\307\311\312\313$B\314\310\315\311\316\317$B\320\310\321\311\312\322$B\323\310\324\311\312\325$B\326\310\327\311\330\331$B\257\f\207" [("།" . "།") ("༏" . "༏") ("༐" . "༐") ("༑" . "༑") ("ཿ" . "ཿ") ("་" . "་") ("༔" . "༔") "༎ ༎" compose-string 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))
#@98 Check if char CH is Tibetan character.
Returns non-nil if CH is Tibetan. Otherwise, returns nil.
(defalias 'tibetan-char-p #[(ch) "\301!\302>\207" [ch char-charset (tibetan tibetan-1-column)] 2 (#$ . 1194)])
#@74 Transcribe Tibetan string STR and return the corresponding Roman string.
(defalias 'tibetan-tibetan-to-transcription #[(str) "\306G\307\306\211\fW\203\\\310#\211=\2034\307\225\311\312\313\307\"\"A\"@\202T\211TOT\311\n\"\206R\311\n\"\206R\311\n\"@	
B)\202\314\315
\237\"-\207" [str this-trans ch i len trans nil 0 string-match rassoc assoc match-string apply concat tibetan-precomposition-rule-regexp idx tibetan-precomposition-rule-alist tibetan-precomposed-transcription-alist tibetan-consonant-transcription-alist tibetan-vowel-transcription-alist tibetan-subjoined-transcription-alist] 6 (#$ . 1409)])
#@115 Convert Tibetan Roman string STR to Tibetan character string.
The returned string has no composition information.
(defalias 'tibetan-transcription-to-tibetan #[(str) "\306\307\306\211\211\310
#\211\203m	W\203#	O\nB\311\307\"\307\225\312\"A\211\203D\313\"@\202d\312\"\206a\312\"\206a\312\"\206a\312\"A\nB)\202\nGW\203}\306O\nB\314\315\n\237\"-\207" [subtrans i t-str-list idx case-fold-search tibetan-regexp nil 0 string-match match-string assoc rassoc apply concat str tibetan-precomposed-transcription-alist t-char tibetan-precomposition-rule-alist tibetan-consonant-transcription-alist tibetan-vowel-transcription-alist tibetan-modifier-transcription-alist tibetan-subjoined-transcription-alist] 6 (#$ . 2062)])
(defalias 'tibetan-add-components #[(components char) "\306!\307\310\311\211\211\312>\2037\313\314\315!\"\211AA)!\314\315!\"\211A@)\316!\317H\203E
\202\250\316!\320H\203f\321=\204\\\322=\203a\311\202\250\f\202\250@\323U\203\324>\204\325\240\210\f\202\250\315@!\326U\204\245\327\330\"\203\245\331\314\315@!\"A!\240\210\f)\203\264D\241\210\n\205\274\n\244.\207" [components tmp comp-vowel rule stack-under stack-upper 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 char tibetan-composite-vowel-alist x laststr tibetan-base-to-subjoined-alist] 7])
#@29 Compose Tibetan string STR.
(defalias 'tibetan-compose-string #[(str) "\306\307	\n#\211\203X\306\225\310\307\n#=\2031\306\225\311\312\313\306\n\"\"A!C\2029\nHCT\fW\203M\314\nH\"\210T\211\202:\315\n
\f$\210+\202)\n\207" [idx tibetan-composable-pattern str components to from 0 string-match nil string-to-char assoc match-string tibetan-add-components compose-string tibetan-precomposition-rule-regexp tibetan-precomposition-rule-alist] 6 (#$ . 3660)])
#@46 Compose Tibetan text the region BEG and END.
(defalias 'tibetan-compose-region #[(beg end) "\306\211\211\212\214\f}\210eb\210\307
\306\310#\205i\311\224\311\225\306\211b\210\312!\203@\313\314\315\311!\"A!C\311\225b\210\202IfC\316u\210`W\203\\\317g\"\210\316u\210\202I\320#\210+\202-\207" [chars result str beg end tibetan-composable-pattern nil re-search-forward t 0 looking-at string-to-char assoc match-string 1 tibetan-add-components compose-region components to from tibetan-precomposition-rule-regexp tibetan-precomposition-rule-alist] 5 (#$ . 4149) "r"])
(defvar tibetan-decompose-precomposition-alist (mapcar #[(x) "\301A!@B\207" [x string-to-char] 2] tibetan-precomposition-rule-alist))
#@186 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.
(defalias 'tibetan-decompose-region #[(from to) "\214	}\210\305	\"\210b\210m?\205.g\211\236\211\203'\306\307!\210\fAc\210\202*\307u\210*\202
)\207" [from to char tibetan-decompose-precomposition-alist slot decompose-region delete-char 1] 4 (#$ . 4890) "r"])
#@166 Decompose Tibetan string STR.
This is different from decompose-string because precomposed Tibetan characters
are decomposed into normal Tibetan character sequences.
(defalias 'tibetan-decompose-string #[(str) "\306G\307\310\211\fW\2032HH\n\236
	\203&	A\202)\311\n!PT\211\202\f
-\207" [str slot char idx len new "" 0 nil char-to-string tibetan-decompose-precomposition-alist] 6 (#$ . 5350)])
(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 #[nil "\301\300!\210?\205\302ed\"\210\303\211\207" [tibetan-decomposed make-local-variable tibetan-decompose-region t] 3 (#$ . 5807) nil])
#@113 Composes Tibetan character components in the buffer.
See also docstring of the function tibetan-compose-region.
(defalias 'tibetan-compose-buffer #[nil "\301\300!\210\302ed\"\210\303\211\207" [tibetan-decomposed make-local-variable tibetan-compose-region nil] 3 (#$ . 6131) nil])
(defalias 'tibetan-post-read-conversion #[(len) "\212\214\300 ``	\\}\210\303ed\"\210\304!\210\305\302!\210\306deZ+\207" [buffer-modified-p len tibetan-decomposed tibetan-compose-region set-buffer-modified-p make-local-variable nil] 3])
(defalias 'tibetan-pre-write-conversion #[(from to) "p\305\306!q\210;\203c\210\202\307\n\f#\210	\204#\310ed\"\210)\311\207" [tibetan-decomposed tibetan-decomposed-temp old-buf from to generate-new-buffer " *temp*" insert-buffer-substring tibetan-decompose-region nil] 4])
#@54 Rules for canonicalizing Tibetan vowels for Unicode.
(defvar tibetan-canonicalize-for-unicode-alist '(("����" . "") ("ཱི" . "ཱི") ("ཱུ" . "ཱུ") ("ྲྀ" . "ྲྀ") ("ཷ" . "ྲཱྀ") ("ླྀ" . "ླྀ") ("ཹ" . "ླཱྀ") ("ཱྀ" . "ཱྀ")) (#$ . 6940))
#@59 Regexp for Tibetan vowels to be canonicalized in Unicode.
(defvar tibetan-canonicalize-for-unicode-regexp "[����ཱཱིུྲྀཷླྀཹཱྀ]" (#$ . 7215))
(defalias 'tibetan-canonicalize-for-unicode-region #[(from to) "\214	}\210b\210\305\n\306\307#\205 \310\311\312!\"A\313\f!\210)\202)\207" [from to tibetan-canonicalize-for-unicode-regexp tibetan-canonicalize-for-unicode-alist canonical-form re-search-forward nil t assoc match-string 0 replace-match] 4])
#@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 (#$ . 7683))
(defalias 'tibetan-pre-write-canonicalize-for-unicode #[(from to) "p\305\306!q\210;\203c\210\202\307\n\f#\210	\203#\310ed\"\210*\311\207" [tibetan-strict-unicode strict-unicode old-buf from to generate-new-buffer " *temp*" insert-buffer-substring tibetan-canonicalize-for-unicode-region nil] 4])
(provide 'tibet-util)