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



(byte-code "\301\302!\210\303\304\305\211\306\307\310\211\211\211\211\211\211\211\211\211\306&\210\3118\312\313!\210\203&\314\315!\210\303\316\305\317\306\320%\210\3118\312\321!\210\203<\314\322!\210\310\207" [quail-current-package require quail quail-define-package "ipa" "IPA" t "International Phonetic Alphabet for English, French, German and Italian\n\nUpside-down characters are obtained by a preceding slash (/)." nil 10 quail-install-map (nil (58 [#1="ː"]) (96 [#2="ˌ"]) (39 [#3="ˈ"]) (77 [#4="ʍ"]) (119 [#5="w"]) (76 [#7="ʟ"]) (108 [#9="l"]) (106 [#10="j"]) (82 [#12="ʀ"]) (114 [#13="r"]) (110 [#16="n"] (103 [#14="ŋ"])) (109 [#17="m"]) (104 [#18="h"]) (120 [#20="x"]) (99 nil (44 [#21="ç"])) (51 [#22="ʒ"]) (122 [#29="z"] (104 [#23="ʒ"])) (115 [#30="s"] (104 [#28="ʃ"])) (118 [#33="v"]) (102 [#34="f"]) (103 [#35="ɡ"] (110 [#15="ɲ"])) (107 [#36="k"]) (100 [#37="d"] (104 [#31="ð"])) (116 [#38="t"] (115 nil (104 [#24="ʧ" #25="tʃ" #27="t⁀ʃ"])) (104 [#32="θ"])) (98 [#39="b"]) (112 [#40="p"]) (124 nil (111 [#48="ɒ"])) (85 [#52="ʊ"]) (117 [#53="u"] (45 [#55="ʉ"])) (79 nil (69 [#56="ɶ"])) (89 [#59="ʏ"]) (121 [#60="y"]) (111 [#51="o"] (45 [#54="ɵ"]) (101 [#57="œ"] (126 [#42="œ̃"])) (47 [#58="ø"]) (124 [#61="ɑ"])) (65 [#62="ɑ"] (126 [#43="ɑ̃"])) (38 [#64="ɤ"]) (97 [#69="a"] (101 [#70="æ"])) (69 [#71="ɛ"] (126 [#44="ɛ̃"])) (47 nil (104 [#6="ɥ"]) (121 [#8="ʎ"]) (114 [#11="ɹ"]) (82 [#19="ʁ"]) (65 [#49="ɒ"]) (99 [#50="ɔ"] (126 [#41="ɔ̃"])) (118 [#63="ʌ"]) (109 [#65="ɯ"]) (97 [#66="ɐ"]) (101 [#67="ə"]) (51 [#72="ɛ"] (126 [#45="ɛ̃"]))) (101 [#73="e"] (124 [#46="ɚ"]) (45 [#47="ɚ"])) (73 [#74="ɪ"]) (105 [#75="i"] (45 [#68="ɨ"]))) quail-install-decode-map (decode-map (#1# . ":") (#2# . "`") (#3# . "'") (#4# . "M") (#5# . "w") (#6# . "/h") (#7# . "L") (#8# . "/y") (#9# . "l") (#10# . "j") (#11# . "/r") (#12# . "R") (#13# . "r") (#14# . "ng") (#15# . "gn") (#16# . "n") (#17# . "m") (#18# . "h") (#19# . "/R") (#20# . "x") (#21# . "c,") (#22# . "3") (#23# . "zh") (#24# . #26="tsh") (#25# . #26#) (#27# . #26#) (#28# . "sh") (#29# . "z") (#30# . "s") (#31# . "dh") (#32# . "th") (#33# . "v") (#34# . "f") (#35# . "g") (#36# . "k") (#37# . "d") (#38# . "t") (#39# . "b") (#40# . "p") (#41# . "/c~") (#42# . "oe~") (#43# . "A~") (#44# . "E~") (#45# . "/3~") (#46# . "e|") (#47# . "e-") (#48# . "|o") (#49# . "/A") (#50# . "/c") (#51# . "o") (#52# . "U") (#53# . "u") (#54# . "o-") (#55# . "u-") (#56# . "OE") (#57# . "oe") (#58# . "o/") (#59# . "Y") (#60# . "y") (#61# . "o|") (#62# . "A") (#63# . "/v") (#64# . "&") (#65# . "/m") (#66# . "/a") (#67# . "/e") (#68# . "i-") (#69# . "a") (#70# . "ae") (#71# . "E") (#72# . "/3") (#73# . "e") (#74# . "I") (#75# . "i")) "ipa-kirshenbaum" "IPA-K" "The International Phonetic Alphabet, using Kirshenbaum ASCII translit.\n\nKirshenbaum IPA is an ASCII transliteration of the phonetic alphabet, common\nin the Usenet groups `sci.lang' and `alt.usage.english'.  This input method\nallows you to type Kirshenbaum on your ASCII-capable keyboard, producing the\ncorresponding actual IPA characters in your editor.\n\nSee http://www.kirshenbaum.net/IPA/ascii-ipa.pdf for full details of the\ntransliteration." (nil (105 nil (34 [#85="ɨ"])) (104 nil (60 nil (63 nil (62 [#88="ɦ"])))) (119 nil (60 nil (118 nil (108 nil (115 nil (62 [#94="ʍ"])))))) (107 nil (33 [#98="ʞ"])) (106 nil (60 nil (118 nil (101 nil (108 nil (62 [#100="ɰ"])))) (114 nil (110 nil (100 nil (62 [#103="ɥ"])))))) (110 nil (34 [#93="ɴ"]) (60 nil (108 nil (98 nil (118 nil (62 [#97="n⁀g"]))))) (46 [#112="ɳ"])) (108 nil (94 [#102="ʎ"]) (46 [#106="ɭ"]) (33 [#113="ʖ"])) (99 nil (33 [#114="ʗ"])) (122 nil (46 [#108="ʐ"]) (60 nil (108 nil (97 nil (116 nil (62 [#117="ɮ"])))))) (115 nil (46 [#109="ʂ"]) (60 nil (108 nil (97 nil (116 nil (62 [#118="ɬ"])))))) (100 nil (60 nil (108 nil (98 nil (118 nil (62 [#95="g⁀b"]))))) (46 [#110="ɖ"]) (96 [#120="ɗ"])) (112 nil (33 [#122="ʘ"])) (98 nil (96 [#123="ɓ"]) (60 nil (116 nil (114 nil (108 nil (62 [#124="ʙ"])))))) (60 nil (63 nil (62 [#125="ʱ"])) (119 nil (62 [#126="ʷ"])) (114 nil (62 [#127="ʳ"])) (111 nil (62 [#128="̥" #129="˚"])) (104 nil (62 [#131="ʰ"])) (72 nil (62 [#132="̴"]))) (59 [#133="ʲ"]) (91 [#134="̪"]) (96 [#135="ʼ"]) (46 [#136="̣"]) (45 [#137="̩"]) (58 [#138="ː"]) (126 [#139="̃"]) (117 nil (45 [#78="ɯ"]) (34 [#84="ʉ"]) (126 [#140="ũ"])) (111 nil (45 [#77="ɤ"]) (126 [#141="õ"])) (97 nil (126 [#142="ã"])) (42 [#143="ɾ"] (46 [#105="ɽ"]) (60 nil (108 nil (97 nil (116 nil (62 [#115="ɺ"])))))) (38 [#144="æ"] (46 [#86="ɶ"])) (63 [#146="ʔ"]) (90 [#147="ʒ"]) (89 [#148="ø"]) (88 [#149="χ"]) (87 [#150="œ"]) (86 [#151="ʌ"] (34 [#80="ɜ"])) (85 [#152="ʊ"]) (84 [#153="θ"]) (116 nil (60 nil (108 nil (98 nil (118 nil (62 [#96="k⁀p"]))))) (46 [#111="ʈ"]) (33 [#119="ʇ"]) (83 [#154="ʧ" #155="tʃ" #157="t⁀ʃ"])) (83 [#158="ʃ"]) (64 [#145="ə"] (46 [#81="ɵ"]) (60 nil (117 nil (109 nil (100 nil (62 [#83="ɘ"])))) (114 nil (62 [#159="ɚ"])))) (82 [#160="ʀ" #161="ɚ"] (60 nil (117 nil (109 nil (100 nil (62 [#82="ɝ"])))))) (81 [#163="ɣ"]) (80 [#164="ɸ"]) (79 [#165="ɔ"] (34 [#79="ɞ"])) (78 [#166="ŋ"]) (77 [#167="ɱ"]) (76 [#168="ɫ" #169="ʟ" #171="ɬ"]) (74 [#172="ɟ"] (96 [#101="ʄ"])) (73 [#173="ɪ"] (46 [#87="ʏ"])) (72 [#174="ħ"] (60 nil (118 nil (99 nil (100 nil (62 [#89="ʕ"])))))) (71 [#175="ɢ"] (96 [#90="ʛ"])) (69 [#176="ɛ"]) (68 [#177="ð"]) (67 [#178="ç"] (60 nil (118 nil (99 nil (100 nil (62 [#104="ʝ"])))))) (66 [#179="β"]) (65 [#180="ɑ"] (46 [#76="ɒ"])) (114 [#181="ɹ"] (34 [#91="ʀ"]) (46 [#107="ɻ"]) (60 nil (116 nil (114 nil (108 nil (62 [#116="ʀ"])))) (108 nil (98 nil (100 nil (62 [#121="ʋ"])))))) (103 [#182="ɡ"] (34 [#92="ʁ"]) (96 [#99="ɠ"]))) (decode-map (#76# . "A.") (#77# . "o-") (#78# . "u-") (#79# . "O\"") (#80# . "V\"") (#81# . "@.") (#82# . "R<umd>") (#83# . "@<umd>") (#84# . "u\"") (#85# . "i\"") (#86# . "&.") (#87# . "I.") (#88# . "h<?>") (#89# . "H<vcd>") (#90# . "G`") (#91# . "r\"") (#92# . "g\"") (#93# . "n\"") (#94# . "w<vls>") (#95# . "d<lbv>") (#96# . "t<lbv>") (#97# . "n<lbv>") (#98# . "k!") (#99# . "g`") (#100# . "j<vel>") (#101# . "J`") (#102# . "l^") (#103# . "j<rnd>") (#104# . "C<vcd>") (#105# . "*.") (#106# . "l.") (#107# . "r.") (#108# . "z.") (#109# . "s.") (#110# . "d.") (#111# . "t.") (#112# . "n.") (#113# . "l!") (#114# . "c!") (#115# . "*<lat>") (#116# . "r<trl>") (#117# . "z<lat>") (#118# . "s<lat>") (#119# . "t!") (#120# . "d`") (#121# . "r<lbd>") (#122# . "p!") (#123# . "b`") (#124# . "b<trl>") (#125# . "<?>") (#126# . "<w>") (#127# . "<r>") (#128# . #130="<o>") (#129# . #130#) (#131# . "<h>") (#132# . "<H>") (#133# . ";") (#134# . "[") (#135# . "`") (#136# . ".") (#137# . "-") (#138# . ":") (#139# . "~") (#140# . "u~") (#141# . "o~") (#142# . "a~") (#143# . "*") (#144# . "&") (#145# . "@") (#146# . "?") (#147# . "Z") (#148# . "Y") (#149# . "X") (#150# . "W") (#151# . "V") (#152# . "U") (#153# . "T") (#154# . #156="tS") (#155# . #156#) (#157# . #156#) (#158# . "S") (#159# . "@<r>") (#160# . #162="R") (#161# . #162#) (#163# . "Q") (#164# . "P") (#165# . "O") (#166# . "N") (#167# . "M") (#168# . #170="L") (#169# . #170#) (#171# . #170#) (#172# . "J") (#173# . "I") (#174# . "H") (#175# . "G") (#176# . "E") (#177# . "D") (#178# . "C") (#179# . "B") (#180# . "A") (#181# . "r") (#182# . "g"))] 17)
#@318 A map from the X-SAMPA for some implosive consonants to characters.
This is used because their X-SAMPA syntax is quasi-diacritic, but the
corresponding Unicode characters themselves don't have diacritics, they are
separate code points.  So we need to implement some extra logic that isn't
normally provided by Quail.
(defconst ipa-x-sampa-implosive-submap '(("b_<" 595) ("d_<" 599) ("g_<" 608) ("G\\_<" 667) ("J\\_<" 644)) (#$ . 7482))
#@178 Return QUAIL-KEYMAP with TO-PREPEND at the beginning of each result.

QUAIL-KEYMAP is a cons that satisfies `quail-map-p'; TO-PREPEND is a
string.

(fn TO-PREPEND QUAIL-KEYMAP)
(defalias 'ipa-x-sampa-prepend-to-keymap-entry #[514 "\211:\203	\211A\262
\211\250\204\300\301!\203#\301
!\203#\302
!C\262
\202C\211;\203/\211C\262
\202C\303
!\204=\304\305\306C\306$\210\307
\306\"\262
\310\311\312\313\314\"\"\"C\207" [fboundp characterp string vectorp cl--assertion-failed (vectorp quail-keymap) nil append apply vector mapcar make-closure #[257 "\301
!\204\302\303\304C\304$\210\305\306\300\250\203\307!\202#\207" [V0 char-or-string-p cl--assertion-failed (char-or-string-p entry) nil format "%s%s" string] 6 "\n\n(fn ENTRY)"]] 8 (#$ . 7925)])
#@805 Return keymap with IPA implosives, for INPUT-STRING, length LENGTH.

The implosive consonants in X-SAMPA are represented with more or less a
diacritic syntax, but the property +implosive in the IPA is expressed using
separate characters, and not using a diacritic.  This function works around
the confusion that implies when generating IPA from X-SAMPA; it returns a
Quail map that is a copy of the map for `_', but with all the DIACRITIC
entries changed to return the diacritic together with the base character,
and with the map to the implosive added to its end.

Like all `quail-defrule'-assigned functions, this will be called once for
each particular sequence of keys, the first time the user types that
particular sequence of keys, and the result will be cached by Quail.

(fn INPUT-STRING LENGTH)
(defalias 'ipa-x-sampa-underscore-implosive #[514 "
\301O\302\303\304!!\305\304\"\211@\303
!\306\307\310\"\"\311:\203,@\203,@\262\202/\262;\2049\312!\262\211\203\206\211@\211\203\211G\313=\203[\211A@\262\211\314\"\241\210\202\211G\315=\203x\211AA@A@\262\211AA@\314\"\241\210\202\316\317\320\311\211$\210
A\266\202\202:\210\321\322A@DC\"\207" [ipa-x-sampa-implosive-submap 0 copy-tree quail-lookup-key "_" split-string assoc format "%s<" nil string 2 ipa-x-sampa-prepend-to-keymap-entry 3 cl--assertion-failed (null t) "Can't handle subtrees of this level right now." append 60] 16 (#$ . 8695)])
(byte-code "\302\303\304\305\306\307%\210\3108\311\312!\210\203\313\314!\210\315\316	\"\211\2036\211@\317
\320\"@\262
\321\322\323\"\324\"\210
A\266\202\202\207" [quail-current-package ipa-x-sampa-implosive-submap quail-define-package "ipa-x-sampa" "IPA" "IPA-X" t "The International Phonetic Alphabet, using J.C. Wells' X-SAMPA.\n\nX-SAMPA is an ASCII transliteration of the IPA, normally used for data\nexchange in environments where Unicode is not available.  This input method\nuses this transliteration to allow you to produce the IPA in your editor\nwith a keyboard that's limited to ASCII.\n\nSee https://www.phon.ucl.ac.uk/home/sampa/ipasam-x.pdf for a full definition\nof the mapping." 10 quail-install-map (nil (39 [#20="ʲ"]) (126 [#33="̃"]) (96 [#35="˞"]) (95 nil (120 [#1="̽"]) (88 [#2="̆"]) (119 [#3="ʷ"]) (118 [#4="̬"]) (116 [#5="̤"]) (84 [#6="̋"]) (114 [#7="̝"]) (82 [#8="̌"]) (113 [#10="̙"]) (111 [#11="̞"]) (79 [#12="̹"]) (110 [#13="ⁿ"]) (78 [#14="̼"]) (109 [#15="̻"]) (77 [#16="̄"]) (108 [#17="ˡ"]) (76 [#18="̀"]) (107 [#19="̰"]) (106 [#21="ʲ"]) (104 [#22="ʰ"]) (72 [#23="́"]) (71 [#24="ˠ"]) (70 [#25="̂"]) (101 [#27="̴"]) (100 [#28="̪"]) (99 [#29="̜"]) (66 [#30="̏"]) (97 [#31="̺"]) (65 [#32="̘"]) (126 [#34="̃"]) (125 [#36="̚"]) (94 [#37="̯"]) (92 [#38="ˆ"]) (63 nil (92 [#39="ˤ"])) (62 [#40="ʼ"]) (61 [#42="̩"]) (48 [#43="̥"]) (47 [#44="ˇ"]) (45 [#45="̠"]) (43 [#46="̟"]) (34 [#47="̈"])) (45 nil (92 [#48="̮"])) (61 [#41="̩"] (92 [#49="ǂ"])) (92 [#51="ǀ"] (124 nil (92 [#50="ǁ"]))) (33 [#53="↓"] (92 [#52="ǃ"])) (94 [#54="↑"]) (62 nil (92 [#55="ʡ"])) (60 nil (82 nil (62 [#9="↗"])) (70 nil (62 [#26="↘"])) (92 [#56="ʢ"])) (63 [#58="ʔ"] (92 [#57="ʕ"])) (38 [#59="ɶ"]) (57 [#60="œ"]) (56 [#61="ɵ"]) (55 [#62="ɤ"]) (54 [#63="ɐ"]) (53 [#64="ɫ"]) (52 [#65="ɾ"]) (51 [#67="ɜ"] (92 [#66="ɞ"])) (50 [#68="ø"]) (49 [#69="ɨ"]) (125 [#70="ʉ"]) (123 [#71="æ"]) (64 [#74="ə"] (96 [#72="ɚ"]) (92 [#73="ɘ"])) (58 [#76="ː"] (92 [#75="ˑ"])) (37 [#77="ˌ"]) (34 [#78="ˈ"]) (90 [#79="ʒ"]) (89 [#80="ʏ"]) (88 [#82="χ"] (92 [#81="ħ"])) (87 [#83="ʍ"]) (86 [#84="ʌ"]) (85 [#86="ʊ"] (92 [#85="ʊ̵"])) (84 [#87="θ"]) (83 [#92="ʃ"]) (82 [#94="ʁ"] (92 [#93="ʀ"])) (81 [#95="ɒ"]) (80 [#96="ʋ"]) (79 [#98="ɔ"] (92 [#97="ʘ"])) (78 [#100="ŋ"] (92 [#99="ɴ"])) (77 [#102="ɯ"] (92 [#101="ɰ"])) (76 [#104="ʎ"] (92 [#103="ʟ"])) (75 [#106="ɬ"] (92 [#105="ɮ"])) (74 [#108="ɲ"] (92 [#107="ɟ"])) (73 [#110="ɪ"] (92 [#109="Ɨ"])) (72 [#112="ɥ"] (92 [#111="ʜ"])) (71 [#114="ɣ"] (92 [#113="ɢ"])) (70 [#115="ɱ"]) (69 [#116="ɛ"]) (68 [#117="ð"]) (67 [#118="ç"]) (66 [#120="β"] (92 [#119="ʙ"])) (65 [#121="ɑ"]) (122 nil (92 [#122="ʑ"]) (96 [#123="ʐ"])) (120 nil (92 [#124="ɧ"])) (118 nil (92 [#125="ʋ"])) (116 nil (83 [#88="ʧ" #89="tʃ" #91="t⁀ʃ"]) (96 [#126="ʈ"])) (115 nil (92 [#127="ɕ"]) (96 [#128="ʂ"])) (114 nil (92 [#130="ɹ"] (96 [#129="ɻ"])) (96 [#131="ɽ"])) (112 nil (92 [#132="ɸ"])) (110 nil (96 [#133="ɳ"])) (108 nil (92 [#134="ɺ"]) (96 [#135="ɭ"])) (106 nil (92 [#136="ʝ"])) (104 nil (92 [#137="ɦ"])) (103 [#138="ɡ"]) (100 nil (96 [#139="ɖ"]))) quail-install-decode-map (decode-map (#1# . "_x") (#2# . "_X") (#3# . "_w") (#4# . "_v") (#5# . "_t") (#6# . "_T") (#7# . "_r") (#8# . "_R") (#9# . "<R>") (#10# . "_q") (#11# . "_o") (#12# . "_O") (#13# . "_n") (#14# . "_N") (#15# . "_m") (#16# . "_M") (#17# . "_l") (#18# . "_L") (#19# . "_k") (#20# . "'") (#21# . "_j") (#22# . "_h") (#23# . "_H") (#24# . "_G") (#25# . "_F") (#26# . "<F>") (#27# . "_e") (#28# . "_d") (#29# . "_c") (#30# . "_B") (#31# . "_a") (#32# . "_A") (#33# . "~") (#34# . "_~") (#35# . "`") (#36# . "_}") (#37# . "_^") (#38# . "_\\") (#39# . "_?\\") (#40# . "_>") (#41# . "=") (#42# . "_=") (#43# . "_0") (#44# . "_/") (#45# . "_-") (#46# . "_+") (#47# . "_\"") (#48# . "-\\") (#49# . "=\\") (#50# . "\\|\\") (#51# . "\\") (#52# . "!\\") (#53# . "!") (#54# . "^") (#55# . ">\\") (#56# . "<\\") (#57# . "?\\") (#58# . "?") (#59# . "&") (#60# . "9") (#61# . "8") (#62# . "7") (#63# . "6") (#64# . "5") (#65# . "4") (#66# . "3\\") (#67# . "3") (#68# . "2") (#69# . "1") (#70# . "}") (#71# . "{") (#72# . "@`") (#73# . "@\\") (#74# . "@") (#75# . ":\\") (#76# . ":") (#77# . "%") (#78# . "\"") (#79# . "Z") (#80# . "Y") (#81# . "X\\") (#82# . "X") (#83# . "W") (#84# . "V") (#85# . "U\\") (#86# . "U") (#87# . "T") (#88# . #90="tS") (#89# . #90#) (#91# . #90#) (#92# . "S") (#93# . "R\\") (#94# . "R") (#95# . "Q") (#96# . "P") (#97# . "O\\") (#98# . "O") (#99# . "N\\") (#100# . "N") (#101# . "M\\") (#102# . "M") (#103# . "L\\") (#104# . "L") (#105# . "K\\") (#106# . "K") (#107# . "J\\") (#108# . "J") (#109# . "I\\") (#110# . "I") (#111# . "H\\") (#112# . "H") (#113# . "G\\") (#114# . "G") (#115# . "F") (#116# . "E") (#117# . "D") (#118# . "C") (#119# . "B\\") (#120# . "B") (#121# . "A") (#122# . "z\\") (#123# . "z`") (#124# . "x\\") (#125# . "v\\") (#126# . "t`") (#127# . "s\\") (#128# . "s`") (#129# . "r\\`") (#130# . "r\\") (#131# . "r`") (#132# . "p\\") (#133# . "n`") (#134# . "l\\") (#135# . "l`") (#136# . "j\\") (#137# . "h\\") (#138# . "g") (#139# . "d`")) mapcar car split-string "_" quail-defrule format "%s_" ipa-x-sampa-underscore-implosive] 6)