;ELC ;;; Compiled ;;; in Emacs version 27.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" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require quail tibet-util] 2) (defalias 'quail-tibetan-update-translation #[(control-flag) "\247\203\306 !\307 !{\310\311 \"\f\"\202>\312\313 \"\203$\311 \314\"\315 !\211\316H\317V\2037\320 !\202=\n\204= )\207" [control-flag quail-overlay quail-current-str quail-current-key unread-command-events str overlay-start overlay-end append substring string-match "^-[dy]" 1 tibetan-transcription-to-tibetan 0 255 tibetan-compose-string] 5]) (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 "\306\307\n\203p\n@\nA \307\211\211\211\203b@A\310\230\2037\311\202>\312\313\314\"!\315 A J\"A\211\203\312\313\316\"!\211 @B\fJBL\210\202\f\204l\317\320 A\"\210-\202+\307\207" [tibetan-tibkey-to-transcription-alist elt tail type-list tibkey-alist trans-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" transcription type types] 6) (defconst tibetan-punctuation-tibkey-alist '(("1" . "༡") ("!" . "༄") ("2" . "༢") ("@" . "༅") ("3" . "༣") ("4" . "༤") ("5" . "༥") ("%" . "༔") ("6" . "༦") ("^" . "༁") ("7" . "༧") ("8" . "༨") ("9" . "༩") ("(" . "༼") ("0" . "༠") (")" . "༽") ("+" . "༑") ("\\" . "༏") ("|" . "༈") ("I" . "྅") (":" . "ཿ") (">" . " ") ("?" . "།") ("??" . "༎") ("????" . ["༎ ༎"]) (" " . "་"))) (defalias 'quail-tibkey-to-transcription #[(tibkey) "G\306\307\n W\203E \307\f\2040 \nV\2030\310\311\n #\f\"A\211\204 S\202\f\203=\f B \202A\307 *\202\312\313 \237\"+\207" [tibkey trans-list i len trans last 0 nil assoc substring apply concat tibetan-tibkey-to-transcription-alist] 5]) (defvar quail-tibkey-characters nil) (defalias 'quail-tibkey-update-translation #[(control-flag) "\250\203\306 !\307 !{\310\311 \"\f\"\2024\312 !\211G\313V\203- \314!)\2023\n\2043 )\207" [control-flag quail-overlay quail-current-str quail-current-key unread-command-events transcription overlay-start overlay-end append substring quail-tibkey-to-transcription 0 quail-tibetan-update-translation] 5]) (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)