;ELC
;;; Compiled by LTX@Xue-LingTaos-MacBook-Pro.local on Wed Mar 16 23:15:51 2011
;;; from file /Users/LTX/Projects/Emacs/emacs/lisp/language/tibet-util.el
;;; in Emacs version 24.0.50.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 "`tibet-util.el' was compiled for Emacs 23 or later"))

;;;;;;;;;;;;;;;;;;;;;


(byte-code "\301B\302\303\304\305\306\307\310\311\312\313\312\314\315\316$B\317\313\320\314\321\322$B\323\313\324\314\315\325$B\326\313\327\314\315\330$B\331\313\332\314\333\334$B\257\f!\207" [current-load-list tibetan-obsolete-glyphs (lambda (#1=#:defconst-tmp-var) (defconst tibetan-obsolete-glyphs #1#)) ("‡ºç" . "‡ºç") ("‡ºè" . "‡ºè") ("‡ºê" . "‡ºê") ("‡ºë" . "‡ºë") ("‡Ωø" . "‡Ωø") ("‡ºã" . "‡ºã") ("‡ºî" . "‡ºî") "‡ºé ‡ºé" 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]] 18)
#@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 (#$ . 1276)])
#@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 (#$ . 1491)])
#@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 (#$ . 2144)])
(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 (#$ . 3742)])
#@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 (#$ . 4231) "r"])
(byte-code "\302B\303\302!\204\304\302\305\306	\"\"\210\302\207" [current-load-list tibetan-precomposition-rule-alist tibetan-decompose-precomposition-alist default-boundp set-default mapcar #[(x) "\301A!@B\207" [x string-to-char] 2]] 5)
#@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 (#$ . 5080) "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 (#$ . 5540)])
(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 (#$ . 5997) 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 (#$ . 6321) 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 '(("ˆêÇé" . "") ("‡Ω≥" . "‡Ω±‡Ω≤") ("‡Ωµ" . "‡Ω±‡Ω¥") ("‡Ω∂" . "‡æ≤‡æÄ") ("‡Ω∑" . "‡æ≤‡Ω±‡æÄ") ("‡Ω∏" . "‡æ≥‡æÄ") ("‡Ωπ" . "‡æ≥‡Ω±‡æÄ") ("‡æÅ" . "‡Ω±‡æÄ")) (#$ . 7130))
#@59 Regexp for Tibetan vowels to be canonicalized in Unicode.
(defvar tibetan-canonicalize-for-unicode-regexp "[ˆêÇé‡Ω≥‡Ωµ‡Ω∂‡Ω∑‡Ω∏‡Ωπ‡æÅ]" (#$ . 7405))
(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])
#@258 *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 (#$ . -7873))
(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)
