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



(byte-code "\300\301!\210\300\302!\207" [require quail tibet-util] 2)
#@21 

(fn CONTROL-FLAG)
(defalias 'quail-tibetan-update-translation #[257 "\211\247\203\304!\305!{\306\n\307O\"\207\310\311\n\"\203\"\n\312\307O\313\n!\211\314H\315V\2033\316
!\210\207	\2049\n\210\207" [quail-overlay quail-current-str quail-current-key unread-command-events overlay-start overlay-end append nil string-match "^-[dy]" 1 tibetan-transcription-to-tibetan 0 255 tibetan-compose-string] 5 (#$ . 154)])
(defconst tibetan-wylie-non-stacking-alist '(("-d" . "ད") ("-y" . "ཡ")))
(defconst tibetan-wylie-punctuation-alist '(("." . " ") (":" . "ཿ") (" " . "་") ("/" . "།") ("//" . "༎") ("////" . ["༎ ༎"]) ("$" . "༏") ("/\"" . "༐") ("&" . "༐") (";" . "༑") ("%" . "༔") ("!" . "༈") ("<" . "༼") (">" . "༽") ("@" . "྅") ("*" . ["༄༅"]) ("#" . ["༄༅༅"]) ("^" . "༆") ("0" . "༠") ("1" . "༡") ("2" . "༢") ("3" . "༣") ("4" . "༤") ("5" . "༥") ("6" . "༦") ("7" . "༧") ("8" . "༨") ("9" . "༩") ("-0" . "༳") ("-1" . "༪") ("-2" . "༫") ("-3" . "༬") ("-4" . "༭") ("-5" . "༮") ("-6" . "༯") ("-7" . "༰") ("-8" . "༱") ("-9" . "༲") ("|" . "ༀ༁༂༃༇༉༊༒༓༕༖༗༘༙༚༛༜༝༞༟༴༶༸༺༻༾༿྾྿࿀࿁࿂࿃࿄࿅࿆࿇࿈࿉࿊࿋࿌࿏")))
(byte-code "\300\301\302\303\304\305\306\211\211\211\211\211\211\211\307&\210\310\311\312!!\207" [quail-define-package "tibetan-wylie" "Tibetan" "TIBw" t "Tibetan character input by Extended Wylie key assignment.\n\n    +-------------------------------------+\n    |ཀ་ k |ཁ་ kh |ག་ g  |གྷ་ gh |ང་ ng|   ི i          །        /\n    |ཅ་ c |ཆ་ ch |ཇ་ j  |       |ཉ་ ny|   ུ u          ༎       //\n    |ཊ་ T |ཋ་ TH |ཌ་ D  |ཌྷ་ DH |ཎ་ N |   ེ e          ༎ ༎    ////\n    |ཏ་ t |ཐ་ th |ད་ d  |དྷ་ dh |ན་ n |   ོ o          ༑       ;\n    |པ་ p |ཕ་ ph |བ་ b  |བྷ་ bh |མ་ m |   ཻ ai (ee, E) ༏        $\n    |ཙ་ ts|ཚ་ tsh|ཛ་ dz |ཛྷ་ dzh|ཝ་ w |   ཽ au (oo, O) ༐        &\n    |ཞ་ zh|ཟ་ z  |འ་ \\='  |       |ཡ་ y |   ྀ I          ༄༅   *\n    |ར་ r |ལ་ l  |ཤ་ sh |ཥ་ SH |ས་ s |   ཿ :         ༄༅༅  #\n    |ཧ་ h |ཨ་ A  |ཀྵ་ kSH|       |      |   ཾ M           ༼ ༽   < >\n    +-------------------------------------+   ༔  %\n    (The consonant ཨ་ must be typed explicitly.)\n\n  NOT SPECIFIED IN EXT. WYLIE:\n    +--------------------------------------------------------+\n    |ྂ = ~ |ྃ = \\=` |྄ = , |྅ = @ |༷ = _o|༵ = _O|༆ = ^|\n    +--------------------------------------------------------+\n    |ྈ = x |ྉ = X |྆ = v |྇ = V |ྊ = q |ྋ = Q |\n    +-----------------------------------------------+\n\n  SPECIAL KEYS\n  +     :  Consonant Stacking\n          (Consonant stacking for ordinary Tibetan is done automatically)\n  -     : No Consonant Stacking\n          (To suppress automatic stacking for \"g-y\",\n            and to get da-drag in  -r-d, -l-d .)\n  |     : Special signs.\n\n  Tsheg is assigned to SPC.  Space is assigned to period `.'.\n" nil quail-tibetan-update-translation quail-install-map quail-map-from-table ((base-state (tibetan-consonant-transcription-alist . svm-state) (tibetan-precomposed-transcription-alist . svm-state) (tibetan-wylie-non-stacking-alist . svm-state) tibetan-subjoined-transcription-alist tibetan-vowel-transcription-alist tibetan-modifier-transcription-alist tibetan-wylie-punctuation-alist) (svm-state (tibetan-vowel-transcription-alist . vm-state) (tibetan-subjoined-transcription-alist . svm-state) (tibetan-modifier-transcription-alist . m-state)) (vm-state (tibetan-vowel-transcription-alist . vm-state) (tibetan-modifier-transcription-alist . m-state)) (m-state (tibetan-modifier-transcription-alist . m-state)))] 15)
(defconst tibetan-tibkey-to-transcription-alist '(("`" . "`") ("~" . "~") ("q" . "k") ("Q" . "kSH") ("w" . "kh") ("e" . "g") ("r" . "ng") ("t" . "c") ("T" . "I") ("y" . "ch") ("u" . "j") ("i" . "ny") ("o" . "t") ("O" . "T") ("p" . "th") ("P" . "TH") ("[" . "d") ("{" . "D") ("]" . "n") ("}" . "N") ("a" . "p") ("A" . "a") ("s" . "ph") ("d" . "b") ("f" . "m") ("F" . "M") ("g" . "u") ("G" . "i") ("H" . ",") ("j" . "o") ("J" . "e") ("k" . "ts") ("l" . "tsh") (";" . "dz") ("'" . "w") ("\"" . "+w") ("z" . "zh") ("x" . "z") ("c" . "'") ("C" . "+'") ("v" . "y") ("V" . "+y") ("b" . "r") ("B" . "+r") ("n" . "l") ("N" . "+l") ("m" . "sh") ("M" . "SH") ("," . "s") ("." . "h") ("/" . "A") ("hq" . "+k") ("hQ" . "+kSH") ("hw" . "+kh") ("he" . "+g") ("hr" . "+ng") ("ht" . "+c") ("hy" . "+ch") ("hu" . "+j") ("hi" . "+ny") ("ho" . "+t") ("hO" . "+T") ("hp" . "+th") ("hP" . "+TH") ("h[" . "+d") ("h{" . "+D") ("h]" . "+n") ("h}" . "+N") ("ha" . "+p") ("hs" . "+ph") ("hd" . "+b") ("hf" . "+m") ("hk" . "+ts") ("hl" . "+tsh") ("h;" . "+dz") ("h'" . "+w") ("hz" . "+zh") ("hx" . "+z") ("hc" . "+'") ("hv" . "+y") ("hb" . "+r") ("hn" . "+l") ("hm" . "+sh") ("hM" . "+SH") ("h," . "+s") ("h." . "+h") ("h/" . "+A") ("E" . "-y")))
(defconst tibetan-consonant-tibkey-alist nil)
(defconst tibetan-subjoined-tibkey-alist nil)
(defconst tibetan-vowel-tibkey-alist nil)
(defconst tibetan-modifier-tibkey-alist nil)
(defconst tibetan-non-stacking-tibkey-alist nil)
(byte-code "\301\302
\203h
@\262

A\262\302\211\211\211\203X@\262A\262\303\230\203*\304\2021\305\306\307\"!\262\310AJ\"A\262\203\305\306\311\"!\262
\211@BJBL\210\202\211\204c\312\313A\"\210\266\202\266\207" [tibetan-tibkey-to-transcription-alist ("consonant" "subjoined" "vowel" "modifier" "non-stacking") nil "non-stacking" tibetan-wylie-non-stacking-alist intern format "tibetan-%s-transcription-alist" assoc "tibetan-%s-tibkey-alist" error "No Tibetan transcription for %s"] 12)
(defconst tibetan-punctuation-tibkey-alist '(("1" . "༡") ("!" . "༄") ("2" . "༢") ("@" . "༅") ("3" . "༣") ("4" . "༤") ("5" . "༥") ("%" . "༔") ("6" . "༦") ("^" . "༁") ("7" . "༧") ("8" . "༨") ("9" . "༩") ("(" . "༼") ("0" . "༠") (")" . "༽") ("+" . "༑") ("\\" . "༏") ("|" . "༈") ("I" . "྅") (":" . "ཿ") (">" . " ") ("?" . "།") ("??" . "༎") ("????" . ["༎ ༎"]) (" " . "་")))
#@15 

(fn TIBKEY)
(defalias 'quail-tibkey-to-transcription #[257 "\211G\301\302
W\203H\302\211\204,
V\203,\303O\"A\211\262\204\f
S\262\202\f\211\203=\211B\262
\262\266\202\302\262\262\266\202\304\305\237\"\207" [tibetan-tibkey-to-transcription-alist 0 nil assoc apply concat] 10 (#$ . 6393)])
(defvar quail-tibkey-characters nil)
#@21 

(fn CONTROL-FLAG)
(defalias 'quail-tibkey-update-translation #[257 "\211\250\203\304!\305!{\306\n\307O\"\207\310\n!\211G\311V\203*\211\312!\262)\210\207	\2040\n\210\207" [quail-overlay quail-current-str quail-current-key unread-command-events overlay-start overlay-end append nil quail-tibkey-to-transcription 0 quail-tibetan-update-translation] 5 (#$ . 6754)])
(byte-code "\300\301\302\303\304\305\306\211\211\211\211\211\211\211\307&\210\310\311\312!!\207" [quail-define-package "tibetan-tibkey" "Tibetan" "TIBt" t "Tibetan character input by TibKey key assignment.\n\n(This implementation is still incomplete.\n Therefore, the following key assignment is a provisional one.)\n\n  [NOT SHIFTED]\n\n  +-------------------------------------------------------+\n  |`ྃ|1༡|2༢|3༣|4༤|5༥|6༦|7༧|8༨|9༩|0༠|-  |=  |\\༈|\n  +-------------------------------------------------------+\n     |qཀ|wཁ|eག|rང|tཅ|yཆ|uཇ|iཉ|oཏ|pཐ|[ད|]ན|\n     +-----------------------------------------------+\n      |aཔ| sཕ| dབ|fམ|gུ|h  |jོ|kཙ|lཚ|;ཛ|\\='ཝ|\n      +---------------------------------------------+\n         |zཞ|xཟ|cའ|vཡ|bར|nལ|mཤ|,ས|.ཧ|/ཨ|\n         +---------------------------------------+\n  The key `h' is used for consonant stacking.\n\n  [SHIFTED]\n\n  +----------------------------------------------------------+\n  |~ྂ|!༄|@༅|#  |$  |%༔ |^༁|&  |*  |(༼|)༽|_  |+༑| |༈|\n  +----------------------------------------------------------+\n     |Qཀྵ|W  |E  |R  |Tྀ|Y  |U  |I྅|Oཊ|Pཋ|{ཌ|}ཎ|\n     +-----------------------------------------------+\n      |A  |S  |D  |Fཾ|Gི|H྄|Jེ|K  |L  |:ཿ|\"ྭ|\n      +-------------------------------------------+\n         |Z  |X  |Cཱ|Vྱ|Bྲ|Nླ|Mཥ|<  |>  |?། |\n         +---------------------------------------+\n\n  DIFFERENCE FROM THE ORIGINAL TIBKEY:\n\n    1. Vowel `a' should be typed explicitly by the key `A'.\n       This is really inconvenient.  But to make the coding\n       scheme clear, it is desirable to have an explicit\n       vowel sign for `a'.\n    2. Tsheg is assigned to SPC key.  You can input a space\n       by typing `>'.\n    4. To avoid the default stacking ���� and to obtain གཡ,\n       type `E' instead of `v' (=ཡ).\n    3. There are many characters that are not supported in the\n       current implementation (especially special signs).\n       I hope I'll complete in a future revision.\n" nil quail-tibkey-update-translation quail-install-map quail-map-from-table ((base-state (tibetan-consonant-tibkey-alist . s-state) (tibetan-non-stacking-tibkey-alist . s-state) tibetan-subjoined-tibkey-alist tibetan-vowel-tibkey-alist tibetan-modifier-tibkey-alist tibetan-punctuation-tibkey-alist) (s-state (tibetan-subjoined-tibkey-alist . s-state) (tibetan-vowel-tibkey-alist . m-state)) (m-state tibetan-modifier-tibkey-alist))] 15)