HOME

Mini Shell 1.0
DIR:/usr/share/emacs/26.1/lisp/leim/quail/
Current File : //usr/share/emacs/26.1/lisp/leim/quail/japanese.elc
;ELC
;;; Compiled
;;; in Emacs version 26.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 kkc] 2)
#@42 If non-nil, use type "nn" to insert ん.
(defvar quail-japanese-use-double-n nil (#$ . 471))
(defalias 'quail-japanese-update-translation #[(control-flag) "\204	\306H\307U\204\n\206	\202\310\202x\250\203x	G\306U\2030	\306H\311\202j	\306H\312U\203Q\313\f\203j\306V\203j	\314H\312U\203j\311\202j\314V\203f	\306H	\314HU\203f\315\202j	\306H\250\203w\316	\317O
\")\207" [control-flag quail-current-key quail-current-str keylen quail-japanese-use-double-n unread-command-events 0 113 "" t 110 12435 1 12387 append nil] 4])
(defalias 'quail-japanese-toggle-kana #[nil "\305\306	!\307	!\212b\210\310\311\n\312#\203\313\n\"\210\202#\314\n\"\210)\306	!\307	!{\211*\207" [quail-translating quail-conv-overlay end start quail-conversion-str nil overlay-start overlay-end re-search-forward "\\cH" t japanese-katakana-region japanese-hiragana-region] 4 nil nil])
(defalias 'quail-japanese-kanji-kkc #[nil "\306!\206`Sf\307U\203\306!Sb\210\310c\210\311\312!\210\313\314!!\306!	Z\315 \210\316\317\216\320	\211\n\\\"\321	`#\210	`{	\f\\`U\203J\316\316\211,\207" [quail-conv-overlay from len quail-current-str result quail-conversion-str overlay-end 110 12435 delete-char 1 copy-marker overlay-start quail-delete-overlays nil #[nil "\301\211\223\207" [from nil] 3] kkc-region move-overlay quail-converting quail-translating] 4 nil nil])
(defalias 'quail-japanese-self-insert-and-switch-to-alpha #[(key idx) "\304!\203\304!\305!|\210	\nSHB\306\307\310\"\207" [quail-overlay key idx unread-command-events overlay-start overlay-end quail-japanese-switch-package "q" 1] 3])
(defvar quail-japanese-switch-table '((122 . "japanese-zenkaku") (107 . "japanese-hankaku-kana") (104 . "japanese") (113 "japanese-ascii")))
(defvar quail-japanese-package-saved nil)
(byte-code "\300\301!\210\302\301\303\304#\207" [make-variable-buffer-local quail-japanese-package-saved put permanent-local t] 4)
(defalias 'quail-japanese-switch-package #[(key idx) "\306!\203\306!\307!|\210\310\211\311\f
SH\236A\211\204)\312\313!\210\202W;\2037\314!\210\202W@\230\203M\203W\314!\210\202W\314@!\210)\315\316\310\"\207" [quail-overlay quail-current-str quail-converting quail-conversion-str key idx overlay-start overlay-end nil "" quail-error "No package to be switched" activate-input-method throw quail-tag quail-japanese-switch-table pkg current-input-method quail-japanese-package-saved] 4])
(defvar quail-japanese-transliteration-rules '(("a" "あ") ("i" "い") ("u" "う") ("e" "え") ("o" "お") ("ka" "か") ("ki" "き") ("ku" "く") ("ke" "け") ("ko" "こ") ("sa" "さ") ("si" "し") ("su" "す") ("se" "せ") ("so" "そ") ("ta" "た") ("ti" "ち") ("tu" "つ") ("te" "て") ("to" "と") ("na" "な") ("ni" "に") ("nu" "ぬ") ("ne" "ね") ("no" "の") ("ha" "は") ("hi" "ひ") ("hu" "ふ") ("he" "へ") ("ho" "ほ") ("ma" "ま") ("mi" "み") ("mu" "む") ("me" "め") ("mo" "も") ("ya" "や") ("yu" "ゆ") ("yo" "よ") ("ra" "ら") ("ri" "り") ("ru" "る") ("re" "れ") ("ro" "ろ") ("la" "ら") ("li" "り") ("lu" "る") ("le" "れ") ("lo" "ろ") ("wa" "わ") ("wi" "ゐ") ("wu" "う") ("we" "ゑ") ("wo" "を") ("n'" "ん") ("ga" "が") ("gi" "ぎ") ("gu" "ぐ") ("ge" "げ") ("go" "ご") ("za" "ざ") ("zi" "じ") ("zu" "ず") ("ze" "ぜ") ("zo" "ぞ") ("da" "だ") ("di" "ぢ") ("du" "づ") ("de" "で") ("do" "ど") ("ba" "ば") ("bi" "び") ("bu" "ぶ") ("be" "べ") ("bo" "ぼ") ("pa" "ぱ") ("pi" "ぴ") ("pu" "ぷ") ("pe" "ぺ") ("po" "ぽ") ("kya" ["きゃ"]) ("kyu" ["きゅ"]) ("kye" ["きぇ"]) ("kyo" ["きょ"]) ("sya" ["しゃ"]) ("syu" ["しゅ"]) ("sye" ["しぇ"]) ("syo" ["しょ"]) ("sha" ["しゃ"]) ("shu" ["しゅ"]) ("she" ["しぇ"]) ("sho" ["しょ"]) ("cha" ["ちゃ"]) ("chu" ["ちゅ"]) ("che" ["ちぇ"]) ("cho" ["ちょ"]) ("tya" ["ちゃ"]) ("tyu" ["ちゅ"]) ("tye" ["ちぇ"]) ("tyo" ["ちょ"]) ("nya" ["にゃ"]) ("nyu" ["にゅ"]) ("nye" ["にぇ"]) ("nyo" ["にょ"]) ("hya" ["ひゃ"]) ("hyu" ["ひゅ"]) ("hye" ["ひぇ"]) ("hyo" ["ひょ"]) ("mya" ["みゃ"]) ("myu" ["みゅ"]) ("mye" ["みぇ"]) ("myo" ["みょ"]) ("rya" ["りゃ"]) ("ryu" ["りゅ"]) ("rye" ["りぇ"]) ("ryo" ["りょ"]) ("lya" ["りゃ"]) ("lyu" ["りゅ"]) ("lye" ["りぇ"]) ("lyo" ["りょ"]) ("gya" ["ぎゃ"]) ("gyu" ["ぎゅ"]) ("gye" ["ぎぇ"]) ("gyo" ["ぎょ"]) ("zya" ["じゃ"]) ("zyu" ["じゅ"]) ("zye" ["じぇ"]) ("zyo" ["じょ"]) ("jya" ["じゃ"]) ("jyu" ["じゅ"]) ("jye" ["じぇ"]) ("jyo" ["じょ"]) ("ja" ["じゃ"]) ("ju" ["じゅ"]) ("je" ["じぇ"]) ("jo" ["じょ"]) ("bya" ["びゃ"]) ("byu" ["びゅ"]) ("bye" ["びぇ"]) ("byo" ["びょ"]) ("pya" ["ぴゃ"]) ("pyu" ["ぴゅ"]) ("pye" ["ぴぇ"]) ("pyo" ["ぴょ"]) ("kwa" ["くゎ"]) ("kwi" ["くぃ"]) ("kwe" ["くぇ"]) ("kwo" ["くぉ"]) ("tsa" ["つぁ"]) ("tsi" ["つぃ"]) ("tse" ["つぇ"]) ("tso" ["つぉ"]) ("fa" ["ふぁ"]) ("fi" ["ふぃ"]) ("fe" ["ふぇ"]) ("fo" ["ふぉ"]) ("gwa" ["ぐゎ"]) ("gwi" ["ぐぃ"]) ("gwe" ["ぐぇ"]) ("gwo" ["ぐぉ"]) ("dyi" ["でぃ"]) ("dyu" ["どぅ"]) ("dye" ["でぇ"]) ("dyo" ["どぉ"]) ("xwi" ["うぃ"]) ("xwe" ["うぇ"]) ("xwo" ["うぉ"]) ("shi" "し") ("tyi" ["てぃ"]) ("chi" "ち") ("tsu" "つ") ("ji" "じ") ("fu" "ふ") ("ye" ["いぇ"]) ("va" ["ヴぁ"]) ("vi" ["ヴぃ"]) ("vu" "ヴ") ("ve" ["ヴぇ"]) ("vo" ["ヴぉ"]) ("xa" "ぁ") ("xi" "ぃ") ("xu" "ぅ") ("xe" "ぇ") ("xo" "ぉ") ("xtu" "っ") ("xya" "ゃ") ("xyu" "ゅ") ("xyo" "ょ") ("xwa" "ゎ") ("xka" "ヵ") ("xke" "ヶ") ("1" "１") ("2" "２") ("3" "３") ("4" "４") ("5" "５") ("6" "６") ("7" "７") ("8" "８") ("9" "９") ("0" "０") ("!" "！") ("@" "＠") ("#" "＃") ("$" "＄") ("%" "％") ("^" "＾") ("&" "＆") ("*" "＊") ("(" "（") (")" "）") ("-" "ー") ("=" "＝") ("`" "｀") ("\\" "￥") ("|" "｜") ("_" "＿") ("+" "＋") ("~" "￣") ("[" "「") ("]" "」") ("{" "｛") ("}" "｝") (":" "：") (";" "；") ("\"" "”") ("'" "’") ("." "。") ("," "、") ("<" "＜") (">" "＞") ("?" "？") ("/" "／") ("z1" "○") ("z!" "●") ("z2" "▽") ("z@" "▼") ("z3" "△") ("z#" "▲") ("z4" "□") ("z$" "■") ("z5" "◇") ("z%" "◆") ("z6" "☆") ("z^" "★") ("z7" "◎") ("z&" "£") ("z8" "¢") ("z*" "×") ("z9" "♂") ("z(" "【") ("z0" "♀") ("z)" "】") ("z-" "〜") ("z_" "∴") ("z=" "≠") ("z+" "±") ("z\\" "＼") ("z|" "‖") ("z`" "´") ("z~" "¨") ("zq" "《") ("zQ" "〈") ("zw" "》") ("zW" "〉") ("zr" "々") ("zR" "仝") ("zt" "〆") ("zT" "§") ("zp" "〒") ("zP" "↑") ("z[" "『") ("z{" "〔") ("z]" "』") ("z}" "〕") ("zs" "ヽ") ("zS" "ヾ") ("zd" "ゝ") ("zD" "ゞ") ("zf" "〃") ("zF" "→") ("zg" "‐") ("zG" "—") ("zh" "←") ("zj" "↓") ("zk" "↑") ("zl" "→") ("z;" "゛") ("z:" "゜") ("z'" "‘") ("z\"" "“") ("zx" [":-"]) ("zX" [":-)"]) ("zc" "〇") ("zC" "℃") ("zv" "※") ("zV" "÷") ("zb" "°") ("zB" "←") ("zn" "′") ("zN" "↓") ("zm" "″") ("zM" "〓") ("z," "‥") ("z<" "≦") ("z." "…") ("z>" "≧") ("z/" "・") ("z?" "∞") ("\\\\" quail-japanese-self-insert-and-switch-to-alpha) ("{{" quail-japanese-self-insert-and-switch-to-alpha) ("}}" quail-japanese-self-insert-and-switch-to-alpha) ("qq" quail-japanese-switch-package) ("qz" quail-japanese-switch-package)))
(byte-code "\304\305\306\307\310\311\310\312\211\310\211\211\211\211\313\314&\210\310\211\203-\n@\315	@	A@\"\210\nA\211\204*\304\316\306\317\310\320\310\312\211&\210\3218\322\323!\210\203H\324\325!\210\304\326\306\327\310\330\310\312\211&\210\3218\322\331!\210\203b\324\332!\210\310\207" [quail-japanese-transliteration-rules elt --dolist-tail-- quail-current-package quail-define-package "japanese" "Japanese" "Aあ" nil "Japanese input method by Roman transliteration and Kana-Kanji conversion.\n\nWhen you use this input method, text entry proceeds in two stages:\nRoman-Kana transliteration and Kana-Kanji conversion.  When you start\nto enter text, you are in the first stage, Roman-Kana transliteration.\nType SPC to proceed to the next stage, Kana-Kanji conversion.\n\n:: Roman-Kana transliteration ::\n\nYou can input any Hiragana character as a sequence of lower-case\nletters, Japanese punctuation characters by typing punctuation keys,\nJapanese symbols by typing `z' followed by another key.  See below for\na list of all available sequences.  The characters you input are\nunderlined.\n\nIn addition, the following keys provide special effects:\n\nK	Change Hiragana to Katakana or Katakana to Hiragana.\nqq	Toggle between this input method and the input method `japanese-ascii'.\nqz	Shift to the input method `japanese-zenkaku'.\n	Typing \"qh\" will put you back to this input method.\nRET	Accept the current character sequence.\nSPC	Proceed to the next stage, Kana-Kanji conversion.\n\nThe input method `japanese-ascii' is used to enter ASCII characters.\nThis is almost the same as turning off the input method.  The only\ndifference is that typing `qq' will put you back into the Japanese\ninput method.\n\nThe input method `japanese-zenkaku' is used to enter full width\nJISX0208 characters corresponding to typed ASCII characters.\n\nList of the all key sequences for Roman-Kana transliteration is shown\nat the tail.\n\n:: Kana-Kanji conversion ::\n\nYou can convert the current Japanese characters (underlined) to\nKana-Kanji mixed text.  In this stage, the converted text is divided\ninto two parts, the current phrase (highlighted) and the remaining\ninput (underlined).  The following commands can be used on the\ncurrent phrase.\n\nSPC, C-n	kkc-next\n	Show the next candidate for the current phrase.\n	If successively typed `kkc-show-conversion-list-count' times,\n	conversion candidates are shown in the echo area.\nC-p		kkc-prev\n	Show the previous candidate for the current phrase.\n	If successively typed `kkc-show-conversion-list-count' times,\n	conversion candidates are shown in the echo area.\nl		kkc-show-conversion-list-or-next-group\n	Show at most 10 candidates for the current phrase in echo area.\n	If typed repeatedly, show the next 10 candidates.\nL		kkc-show-conversion-list-or-prev-group\n	Show at most 10 candidates for the current phrase in echo area.\n	If typed repeatedly, show the previous 10 candidates.\n0..9		kkc-select-from-list\n	Select a candidate corresponding to the typed number.\nH		kkc-hiragana\n	Convert the current phrase to Hiragana\nK		kkc-katakana\n	Convert the current phrase to Katakana\nC-o		kkc-longer\n	Extend the current phrase; pull in the first character of\n	the remaining input.\nC-i		kkc-shorter\n	Contract the current phrase; drop its last character\n	back into the remaining input.\nC-f		kkc-next-phrase\n	Accept the current phrase.  If there remains input, select\n	the first phrase as the current one, and show the first\n	candidate for the conversion.\nDEL, C-c	kkc-cancel\n	Cancel the conversion, shift back to the Roman-Kana\n	transliteration.\nreturn		kkc-terminate\n	Accept the whole conversion.\nC-SPC, C-@	kkc-first-char-only\n	Accept the first character of the current conversion,\n	delete the remaining input.\nC-h		kkc-help\n	List these key bindings.\n" t quail-japanese-update-translation (("K" . quail-japanese-toggle-kana) (" " . quail-japanese-kanji-kkc) ("
" . quail-no-conversion) ([return] . quail-no-conversion)) quail-defrule "japanese-ascii" "Aa" "Temporary ASCII input mode used within the input method `japanese'.\nType \"qq\" to go back to previous input method." 10 quail-install-map (nil (113 nil (113 . quail-japanese-switch-package))) quail-install-decode-map (decode-map) "japanese-zenkaku" "Ａ" "Japanese zenkaku alpha numeric character input method.\n---- Special key bindings ----\nqq:	toggle between this input method and the input method `japanese-ascii'.\nqh:	shift to the input method `japanese',\n	typing \"qz\" puts you back to this input method.\n" (nil (126 [#1="〜"]) (125 [#2="｝"]) (124 [#3="｜"]) (123 [#4="｛"]) (122 [#5="ｚ"]) (121 [#6="ｙ"]) (120 [#7="ｘ"]) (119 [#8="ｗ"]) (118 [#9="ｖ"]) (117 [#10="ｕ"]) (116 [#11="ｔ"]) (115 [#12="ｓ"]) (114 [#13="ｒ"]) (113 [#14="ｑ"] (104 . quail-japanese-switch-package) (113 . quail-japanese-switch-package)) (112 [#15="ｐ"]) (111 [#16="ｏ"]) (110 [#17="ｎ"]) (109 [#18="ｍ"]) (108 [#19="ｌ"]) (107 [#20="ｋ"]) (106 [#21="ｊ"]) (105 [#22="ｉ"]) (104 [#23="ｈ"]) (103 [#24="ｇ"]) (102 [#25="ｆ"]) (101 [#26="ｅ"]) (100 [#27="ｄ"]) (99 [#28="ｃ"]) (98 [#29="ｂ"]) (97 [#30="ａ"]) (96 [#31="‘"]) (95 [#32="＿"]) (94 [#33="＾"]) (93 [#34="］"]) (92 [#35="￥"]) (91 [#36="［"]) (90 [#37="Ｚ"]) (89 [#38="Ｙ"]) (88 [#39="Ｘ"]) (87 [#40="Ｗ"]) (86 [#41="Ｖ"]) (85 [#42="Ｕ"]) (84 [#43="Ｔ"]) (83 [#44="Ｓ"]) (82 [#45="Ｒ"]) (81 [#46="Ｑ"]) (80 [#47="Ｐ"]) (79 [#48="Ｏ"]) (78 [#49="Ｎ"]) (77 [#50="Ｍ"]) (76 [#51="Ｌ"]) (75 [#52="Ｋ"]) (74 [#53="Ｊ"]) (73 [#54="Ｉ"]) (72 [#55="Ｈ"]) (71 [#56="Ｇ"]) (70 [#57="Ｆ"]) (69 [#58="Ｅ"]) (68 [#59="Ｄ"]) (67 [#60="Ｃ"]) (66 [#61="Ｂ"]) (65 [#62="Ａ"]) (64 [#63="＠"]) (63 [#64="？"]) (62 [#65="＞"]) (61 [#66="＝"]) (60 [#67="＜"]) (59 [#68="；"]) (58 [#69="："]) (57 [#70="９"]) (56 [#71="８"]) (55 [#72="７"]) (54 [#73="６"]) (53 [#74="５"]) (52 [#75="４"]) (51 [#76="３"]) (50 [#77="２"]) (49 [#78="１"]) (48 [#79="０"]) (47 [#80="／"]) (46 [#81="．"]) (45 [#82="−"]) (44 [#83="，"]) (43 [#84="＋"]) (42 [#85="＊"]) (41 [#86="）"]) (40 [#87="（"]) (39 [#88="′"]) (38 [#89="＆"]) (37 [#90="％"]) (36 [#91="＄"]) (35 [#92="＃"]) (34 [#93="″"]) (33 [#94="！"]) (32 [#95="　"])) (decode-map (#1# . "~") (#2# . "}") (#3# . "|") (#4# . "{") (#5# . "z") (#6# . "y") (#7# . "x") (#8# . "w") (#9# . "v") (#10# . "u") (#11# . "t") (#12# . "s") (#13# . "r") (#14# . "q") (#15# . "p") (#16# . "o") (#17# . "n") (#18# . "m") (#19# . "l") (#20# . "k") (#21# . "j") (#22# . "i") (#23# . "h") (#24# . "g") (#25# . "f") (#26# . "e") (#27# . "d") (#28# . "c") (#29# . "b") (#30# . "a") (#31# . "`") (#32# . "_") (#33# . "^") (#34# . "]") (#35# . "\\") (#36# . "[") (#37# . "Z") (#38# . "Y") (#39# . "X") (#40# . "W") (#41# . "V") (#42# . "U") (#43# . "T") (#44# . "S") (#45# . "R") (#46# . "Q") (#47# . "P") (#48# . "O") (#49# . "N") (#50# . "M") (#51# . "L") (#52# . "K") (#53# . "J") (#54# . "I") (#55# . "H") (#56# . "G") (#57# . "F") (#58# . "E") (#59# . "D") (#60# . "C") (#61# . "B") (#62# . "A") (#63# . "@") (#64# . "?") (#65# . ">") (#66# . "=") (#67# . "<") (#68# . ";") (#69# . ":") (#70# . "9") (#71# . "8") (#72# . "7") (#73# . "6") (#74# . "5") (#75# . "4") (#76# . "3") (#77# . "2") (#78# . "1") (#79# . "0") (#80# . "/") (#81# . ".") (#82# . "-") (#83# . ",") (#84# . "+") (#85# . "*") (#86# . ")") (#87# . "(") (#88# . "'") (#89# . "&") (#90# . "%") (#91# . "$") (#92# . "#") (#93# . "\"") (#94# . "!") (#95# . " "))] 17)
(defalias 'quail-japanese-hankaku-update-translation #[(control-flag) "\302!	;\203	G\303V\204	\250\203\304	!\207" [control-flag quail-current-str quail-japanese-update-translation 0 japanese-hankaku] 2])
(byte-code "\306\307\310\311\312\313\312\314\211\312\211\211\211\211\315&\210\312\211\203_\n@\316	@	A@\211;\204/\317!\203T\320;\2039\202<\321H!\211;\203Q\fG\322V\203Q\323\f!\202S\f))\"\210\nA\211\204*\306\324\310\325\312\326\312\314\211\312\211\211\211\211\327&\210
AA\330\331\332\"8\240\207" [quail-japanese-transliteration-rules elt --dolist-tail-- trans s quail-current-package quail-define-package "japanese-hankaku-kana" "Japanese" "ｱ" nil "Japanese hankaku katakana input method by Roman transliteration.\n---- Special key bindings ----\nqq:	toggle between this input method and the input method `japanese-ascii'.\n" t quail-japanese-hankaku-update-translation quail-defrule vectorp japanese-hankaku 0 1 vector "japanese-hiragana" "あ" "Japanese hiragana input method by Roman transliteration." quail-japanese-update-translation 2 assoc "japanese" quail-package-alist] 16)
(defalias 'quail-japanese-katakana-update-translation #[(control-flag) "\302!	;\203	G\303V\204	\250\203\304	!\207" [control-flag quail-current-str quail-japanese-update-translation 0 japanese-katakana] 2])
(byte-code "\304\305\306\307\310\311\310\312\211\310\211\211\211\211\313&\210\310\211\203J\n@\314	@	A@\211;\203/\315!\202@\316!\203?\317\315\320H!!\202@)\"\210\nA\211\204*\310\207" [quail-japanese-transliteration-rules elt --dolist-tail-- trans quail-define-package "japanese-katakana" "Japanese" "ア" nil "Japanese katakana input method by Roman transliteration." t quail-japanese-katakana-update-translation quail-defrule japanese-katakana vectorp vector 0] 16)