1 ;;; quail/japanese.el --- Quail package for inputting Japanese
3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
4 ;; Licensed to the Free Software Foundation.
6 ;; Keywords: multilingual, input method, Japanese
8 ;; This file is part of GNU Emacs.
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation; either version 2, or (at your option)
15 ;; GNU Emacs is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 ;; Boston, MA 02111-1307, USA.
30 (defvar quail-japanese-use-double-n nil
31 "If non-nil, use type \"nn\" to insert \e$B$s\e(B.")
33 ;; Update Quail translation region while considering Japanese bizarre
35 (defun quail-japanese-update-translation (control-flag)
36 (if (null control-flag
)
37 (setq quail-current-str
38 (if (/= (aref quail-current-key
0) ?q
)
39 (or quail-current-str quail-current-key
)
41 (if (integerp control-flag
)
42 (if (= control-flag
0)
43 (setq quail-current-str
(aref quail-current-key
0))
44 (cond ((= (aref quail-current-key
0) ?n
)
45 (setq quail-current-str ?
\e$B$s
\e(B)
46 (if (and quail-japanese-use-double-n
47 (= (aref quail-current-key
1) ?n
))
48 (setq control-flag t
)))
49 ((= (aref quail-current-key
0) (aref quail-current-key
1))
50 (setq quail-current-str ?
\e$B$C
\e(B))
52 (setq quail-current-str
(aref quail-current-key
0))))
53 (if (integerp control-flag
)
54 (setq unread-command-events
55 (list (aref quail-current-key control-flag
)))))))
58 ;; Flag to control the behavior of `quail-japanese-toggle-kana'.
59 (defvar quail-japanese-kana-state nil
)
60 (make-variable-buffer-local 'quail-japanese-kana-state
)
62 ;; Convert Hiragana <-> Katakana in the current translation region.
63 (defun quail-japanese-toggle-kana ()
65 (setq quail-translating nil
)
66 (let ((start (overlay-start quail-conv-overlay
))
67 (end (overlay-end quail-conv-overlay
)))
68 (setq quail-japanese-kana-state
69 (if (eq last-command this-command
)
70 (not quail-japanese-kana-state
)))
71 (if quail-japanese-kana-state
72 (japanese-hiragana-region start end
)
73 (japanese-katakana-region start end
))
74 (setq quail-conversion-str
75 (buffer-substring (overlay-start quail-conv-overlay
)
76 (overlay-end quail-conv-overlay
)))))
78 ;; Convert Hiragana in the current translation region to Kanji by KKC
79 ;; (Kana Kanji Converter) utility.
80 (defun quail-japanese-kanji-kkc ()
82 (let ((from (overlay-start quail-conv-overlay
))
83 (to (overlay-end quail-conv-overlay
)))
84 (quail-delete-overlays)
85 (setq quail-current-str nil
)
86 (when (= (char-before to
) ?n
)
87 ;; The last char is `n'. We had better convert it to `\e$B$s\e(B'
88 ;; before kana-kanji conversion.
92 (let ((result (kkc-region from to
)))
93 (move-overlay quail-conv-overlay from
(point))
94 (setq quail-conversion-str
(buffer-substring from
(point)))
95 (if (= (+ from result
) (point))
96 (setq quail-converting nil
))
97 (setq quail-translating nil
))))
99 (defun quail-japanese-self-insert-and-switch-to-alpha (key idx
)
100 (quail-delete-region)
101 (setq unread-command-events
(list (aref key
(1- idx
))))
102 (quail-japanese-switch-package "q" 1))
104 (defvar quail-japanese-switch-table
105 '((?z .
"japanese-zenkaku")
106 (?k .
"japanese-hankaku-kana")
108 (?q .
("japanese-ascii"))))
110 (defvar quail-japanese-package-saved nil
)
111 (make-variable-buffer-local 'quail-japanese-package-saved
)
112 (put 'quail-japanese-package-saved
'permanent-local t
)
114 (defun quail-japanese-switch-package (key idx
)
115 (quail-delete-region)
116 (setq quail-current-str nil
118 quail-conversion-str
"")
119 (let ((pkg (cdr (assq (aref key
(1- idx
)) quail-japanese-switch-table
))))
121 (quail-error "No package to be switched")
123 (activate-input-method pkg
)
124 (if (string= (car pkg
) current-input-method
)
125 (if quail-japanese-package-saved
126 (activate-input-method quail-japanese-package-saved
))
127 (setq quail-japanese-package-saved current-input-method
)
128 (activate-input-method (car pkg
))))))
129 (throw 'quail-tag nil
))
131 ;; \e$B%m!<%^;zF~NO5Z$S2>L>4A;zJQ49$K$h$kF|K\8lF~NO%a%=%C%I\e(B
133 ;; \e$B$3$NF~NO%a%=%C%I$G$NF|K\8l$NF~NO$OFs$D$N%9%F!<%8!V%m!<%^;z2>L>JQ49!W\e(B
134 ;; \e$B$H!V2>L>4A;zJQ49!W$+$i$J$k!#:G=i$O%m!<%^;z2>L>JQ49$N%9%F!<%8$G!"%9\e(B
135 ;; \e$B%Z!<%9%-!<$r2!$9$3$H$K$h$j!"<!$N%9%F!<%8!V2>L>4A;zJQ49!W$X?J$`!#\e(B
137 ;; \e$B!V%m!<%^;z2>L>JQ49!W\e(B
139 ;; \e$BJ?2>L>$O>.J8;z%-!<!JNs!K$rBG$D$3$H$K$h$jF~NO!#6gFIE@!"3g8LN`$OBP1~\e(B
140 ;; \e$B$9$k1Q;z%-!<$rBG$D$3$H$K$h$jF~NO!#$=$NB>$N%7%s%\%k$O\e(B `z' \e$B$KB3$1$F2?\e(B
141 ;; \e$B$l$+$N%-!<$rBG$D$3$H$K$h$jF~NO!#2<$KA4$F$N2DG=$J%-!<%7!<%1%s%9%j%9\e(B
142 ;; \e$B%H%"%C%W$5$l$F$$$k!#F~NO$5$l$?J8;z$O2<@~$G<($5$l$k!#\e(B
144 ;; \e$B$5$i$K0J2<$N%-!<$GFCJL$J=hM}$r9T$&!#\e(B
146 ;; K \e$BJ?2>L>$rJR2>L>$K!"$"$k$$$OJR2>L>$rJ?2>L>$KJQ49\e(B
147 ;; qq \e$B$3$NF~NO%a%=%C%I$H\e(B `japanese-ascii' \e$BF~NO%a%=%C%I$r%H%0%k@ZBX\e(B
148 ;; qz `japanese-zenkaku' \e$BF~NO%a%=%C%I$K%7%U%H\e(B
149 ;; qh \e$B$HBG$F$P85$KLa$k\e(B
150 ;; RET \e$B8=:_$NF~NOJ8;zNs$r3NDj\e(B
151 ;; SPC \e$B2>L>4A;zJQ49$K?J$`\e(B
153 ;; `japanese-ascii' \e$BF~NO%a%=%C%I$O\e(B ASCII \e$BJ8;z$rF~NO$9$k$N$K;H$&!#$3$l\e(B
154 ;; \e$B$OF~NO%a%=%C%I$r%*%U$K$9$k$N$H$[$H$s$IF1$8$G$"$k!#0[$J$k$N$O\e(B qq \e$B$H\e(B
155 ;; \e$BBG$D$3$H$K$h$j!"\e(B`japanese' \e$BF~NO%a%=%C%I$KLa$l$kE@$G$"$k!#\e(B
157 ;; `japanese-zenkaku' \e$BF~NO%a%=%C%I$OA43Q1Q?t;z$rF~NO$9$k$N$K;H$&!#\e(B
159 ;; \e$B0J2<$K!V%m!<%^;z2>L>JQ49!W%9%F!<%8$G$N%-!<%7!<%1%s%9$r5s$2$k!#\e(B
163 ;; \e$B!V2>L>4A;zJQ49!W\e(B
165 ;; \e$B$3$N%9%F!<%8$G$O!"A0%9%F!<%8$GF~NO$5$l$?J8;zNs$r2>L>4A;zJQ49$9$k!#\e(B
166 ;; \e$BJQ49$5$l$?J8;zNs$O!"CmL\J8@a!JH?E>I=<(!K$H;D$j$NF~NO!J2<@~I=<(!K$K\e(B
167 ;; \e$BJ,$1$i$l$k!#CmL\J8@a$KBP$7$F$O0J2<$N%3%^%s%I$,;H$($k!#\e(B
170 ;; \e$B<!$NJQ498uJd$rI=<(\e(B
172 ;; \e$BA0$NJQ498uJd$rI=<(\e(B
173 ;; l kkc-show-conversion-list-or-next-group
174 ;; \e$B:G9b#1#08D$^$G$NJQ498uJd$r%(%3!<%(%j%"$KI=<(!#\e(B
175 ;; \e$BB3$1$FBG$?$l$l$P!"<!$N#1#08uJd$rI=<(!#\e(B
176 ;; L kkc-show-conversion-list-or-prev-group
177 ;; \e$B:G9b#1#08D$^$G$NJQ498uJd$r%(%3!<%(%j%"$KI=<(!#\e(B
178 ;; \e$BB3$1$FBG$?$l$l$P!"A0$N#1#08uJd$rI=<(!#\e(B
179 ;; 0..9 kkc-select-from-list
180 ;; \e$BBG$?$l$??t;z$NJQ498uJd$rA*Br\e(B
182 ;; \e$BCmL\J8@a$rJ?2>L>$KJQ49\e(B
184 ;; \e$BCmL\J8@a$rJR2>L>$KJQ49\e(B
186 ;; \e$BCmL\J8@a$r8e$m$K0lJ8;z?-$P$9\e(B
188 ;; \e$BCmL\J8@a$r8e$m$+$i0lJ8;z=L$a$k\e(B
189 ;; C-f kkc-next-phrase
190 ;; \e$BCmL\J8@a$r3NDj$5$;$k!#$b$7;D$j$NF~NO$,$^$@$"$l$P!":G=i$NJ8@a$r\e(B
191 ;; \e$BA*Br$7!"$=$l$rCmL\J8@a$H$7!"$=$N:G=i$NJQ498uJd$rI=<($9$k!#\e(B
192 ;; DEL, C-c kkc-cancel
193 ;; \e$B2>L>4A;zJQ49$r%-%c%s%;%k$7!"%m!<%^;z2>L>JQ49$N%9%F!<%8$KLa$k!#\e(B
194 ;; return kkc-terminate
195 ;; \e$BA4J8@a$r3NDj$5$;$k!#\e(B
196 ;; C-SPC, C-@ kkc-first-char-only
197 ;; \e$B:G=i$NJ8;z$r3NDj$5$;!";D$j$O:o=|$9$k!#\e(B
199 ;; \e$B$3$l$i$N%-!<%P%$%s%I$N%j%9%H$rI=<($9$k!#$"\e(B
201 (quail-define-package
202 "japanese" "Japanese" "A\e$B$"\e(B"
204 "Japanese input method using Roman transliteration and Kana-Kanji conversion.
206 When you use this input method
, text entry proceeds in two stages
:
207 Roman-Kana transliteration and Kana-Kanji conversion. When you start
208 to enter text
, you are in the first stage
, Roman-Kana transliteration.
209 Type SPC to proceed to the next stage
, Kana-Kanji conversion.
211 :: Roman-Kana transliteration
::
213 You can input any Hiragana character as a sequence of lower-case
214 letters
, Japanese punctuation characters by typing punctuation keys
,
215 Japanese symbols by typing
`z
' followed by another key. See below for
216 a list of all available sequences. The characters you input are
219 In addition
, the following keys provide special effects
:
221 K Change Hiragana to Katakana or Katakana to Hiragana.
222 qq Toggle between this input method and the
`japanese-ascii
' input method.
223 qz Shift to the
`japanese-zenkaku
' input method.
224 Typing
\"qh
\" will put you back to this input method.
225 RET Accept the current character sequence.
226 SPC Proceed to the next stage
, Kana-Kanji conversion.
228 The
`japanese-ascii
' input method is used to enter ASCII characters.
229 This is almost the same as turning off the input method. The only
230 difference is that typing
`qq
' will put you back into the Japanese
233 The
`japanese-zenkaku
' input methods is used to enter full width
234 JISX0208 characters corresponding to typed ASCII characters.
236 Here
's a list of key sequences for Roman-Kana transliteration.
238 a
\e$B$
"\e(B i \e$B$$\e(B u \e$B$&\e(B e \e$B$(\e(B o \e$B$*\e(B
239 ka \e$B$+\e(B ki \e$B$-\e(B ku \e$B$/\e(B ke \e$B$1\e(B ko \e$B$3\e(B ga \e$B$,\e(B gi \e$B$.\e(B gu \e$B$0\e(B ge \e$B$2\e(B go \e$B$4\e(B
240 sa \e$B$5\e(B si \e$B$7\e(B su \e$B$9\e(B se \e$B$;\e(B so \e$B$=\e(B za \e$B$6\e(B zi \e$B$8\e(B zu \e$B$:\e(B ze \e$B$<\e(B zo \e$B$>\e(B
241 ta \e$B$?\e(B ti \e$B$A\e(B tu \e$B$D\e(B te \e$B$F\e(B to \e$B$H\e(B da \e$B$@\e(B di \e$B$B\e(B du \e$B$E\e(B de \e$B$G\e(B do \e$B$I\e(B
242 na \e$B$J\e(B ni \e$B$K\e(B nu \e$B$L\e(B ne \e$B$M\e(B no \e$B$N\e(B
243 ha \e$B$O\e(B hi \e$B$R\e(B hu \e$B$U\e(B he \e$B$X\e(B ho \e$B$[\e(B ba \e$B$P\e(B bi \e$B$S\e(B bu \e$B$V\e(B be \e$B$Y\e(B bo \e$B$\\e(B
244 ma \e$B$^\e(B mi \e$B$_\e(B mu \e$B$`\e(B me \e$B$a\e(B mo \e$B$b\e(B pa \e$B$Q\e(B pi \e$B$T\e(B pu \e$B$W\e(B pe \e$B$Z\e(B po \e$B$]\e(B
245 ya \e$B$d\e(B yu \e$B$f\e(B yo \e$B$h\e(B
246 ra \e$B$i\e(B ri \e$B$j\e(B ru \e$B$k\e(B re \e$B$l\e(B ro \e$B$m\e(B
247 la \e$B$i\e(B li \e$B$j\e(B lu \e$B$k\e(B le \e$B$l\e(B lo \e$B$m\e(B
248 wa \e$B$o\e(B wi \e$B$p\e(B wu \e$B$&\e(B we \e$B$q\e(B wo \e$B$r\e(B n' \e$B$s\e(B
250 kya \e$B$-$c\e(B kyu \e$B$-$e\e(B kye \e$B$-$'\e(B kyo \e$B$-$g\e(B
251 sha \e$B$7$c\e(B shu \e$B$7$e\e(B she \e$B$7$'\e(B sho \e$B$7$g\e(B sya \e$B$7$c\e(B syu \e$B$7$e\e(B sye \e$B$7$'\e(B syo \e$B$7$g\e(B
252 cha \e$B$A$c\e(B chu \e$B$A$e\e(B che \e$B$A$'\e(B cho \e$B$A$g\e(B tya \e$B$A$c\e(B tyu \e$B$A$e\e(B tye \e$B$A$'\e(B tyo \e$B$A$g\e(B
253 nya \e$B$K$c\e(B nyu \e$B$K$e\e(B nye \e$B$K$'\e(B nyo \e$B$K$g\e(B
254 hya \e$B$R$c\e(B hyu \e$B$R$e\e(B hye \e$B$R$'\e(B hyo \e$B$R$g\e(B
255 mya \e$B$_$c\e(B myu \e$B$_$e\e(B mye \e$B$_$'\e(B myo \e$B$_$g\e(B
256 rya \e$B$j$c\e(B ryu \e$B$j$e\e(B rye \e$B$j$'\e(B ryo \e$B$j$g\e(B lya \e$B$j$c\e(B lyu \e$B$j$e\e(B lye \e$B$j$'\e(B lyo \e$B$j$g\e(B
257 gya \e$B$.$c\e(B gyu \e$B$.$e\e(B gye \e$B$.$'\e(B gyo \e$B$.$g\e(B
258 zya \e$B$8$c\e(B zyu \e$B$8$e\e(B zye \e$B$8$'\e(B zyo \e$B$8$g\e(B jya \e$B$8$c\e(B jyu \e$B$8$e\e(B jye \e$B$8$'\e(B jyo \e$B$8$g\e(B
259 ja \e$B$8$c\e(B ju \e$B$8$e\e(B je \e$B$8$'\e(B jo \e$B$8$g\e(B
260 bya \e$B$S$c\e(B byu \e$B$S$e\e(B bye \e$B$S$'\e(B byo \e$B$S$g\e(B pya \e$B$T$c\e(B pyu \e$B$T$e\e(B pye \e$B$T$'\e(B pyo \e$B$T$g\e(B
262 kwa \e$B$/$n\e(B kwi \e$B$/$#\e(B kwe \e$B$/$'\e(B kwo \e$B$/$)\e(B
263 tsa \e$B$D$!\e(B tsi \e$B$D$#\e(B tse \e$B$D$'\e(B tso \e$B$D$)\e(B
264 fa \e$B$U$!\e(B fi \e$B$U$#\e(B fe \e$B$U$'\e(B fo \e$B$U$)\e(B
265 gwa \e$B$0$n\e(B gwi \e$B$0$#\e(B gwe \e$B$0$'\e(B gwo \e$B$0$)\e(B
266 dyi \e$B$G$#\e(B dyu \e$B$I$%\e(B dye \e$B$G$'\e(B dyo \e$B$I$)\e(B
268 shi \e$B$7\e(B tyi \e$B$F$#\e(B chi \e$B$A\e(B tsu \e$B$D\e(B ji \e$B$8\e(B fu \e$B$U\e(B
269 xwi \e$B$&$#\e(B xwe \e$B$&$'\e(B xwo \e$B$&$)\e(B ye \e$B$$$'\e(B
271 va \e$B%t$!\e(B vi \e$B%t$#\e(B vu \e$B%t\e(B ve \e$B%t$'\e(B vo \e$B%t$)\e(B
273 xa \e$B$!\e(B xi \e$B$#\e(B xu \e$B$%\e(B xe \e$B$'\e(B xo \e$B$)\e(B xtu \e$B$C\e(B
274 xya \e$B$c\e(B xyu \e$B$e\e(B xyo \e$B$g\e(B xwa \e$B$n\e(B xka \e$B%u\e(B xke \e$B%v\e(B
276 Digists and punctuations:
278 key: 1 2 3 4 5 6 7 8 9 0 - = \ ` ! @ # $ % ^ & * ( ) _ + | ~
279 char: \e$B#1#2#3#4#5#6#7#8#9#0!<!a!o!.!*!w!t!p!s!0!u!v!J!K!2!\!C!1\e(B
281 key: [ ] { } ; ' : \" , . / < > ?
282 char: \e$B!V!W!P!Q!(!G!"!#!?
!'!I
!c
!d
!)\e(B
284 Symbols
(`z
' followed by these keys
):
286 Key
: 1 2 3 4 5 6 7 8 9 0 -
= \
` ! @ # $ % ^
& * ( ) _
+ | ~
287 char
: \e$B
!{"&"$
""!~
!y
!}!q
!i
!j
!A
!b
!@!-
!|
"'"%
"#"!!z
!r
!_
!Z
![!h
!^
!B
!/\e(B
289 Key
: [ ] { } ; ' : \" , . / < > ?
290 char
: \e$B
!X
!Y
!L
!M
!+!F
!,!H
!E
!D
!&!e
!f
!g
\e(B
292 Key
: b c d f g h j k l m n p q r s t v w B C D F G M N P Q R S T V W
293 char
: \e$B
!k
!;!5!7!>"+"-","*!m!l")!T!9!3!:"(!U"+!n!6"*!="."-",!R!8!4!x!`!S\e(B
298 :: Kana-Kanji conversion
::
300 You can convert the current Japanese characters
(underlined) to
301 Kana-Kanji mixed text. In this stage
, the converted text is divided
302 into two parts
, the current phrase
(highlighted) and the remaining
303 input
(underlined). The following commands can be used on the
307 Show the next candidate for the current phrase.
309 Show the previous candidate for the current phrase.
310 l kkc-show-conversion-list-or-next-group
311 Show at most
10 candidates for the current phrase in echo area.
312 If typed repeatedly
, show the next
10 candidates.
313 L kkc-show-conversion-list-or-prev-group
314 Show at most
10 candidates for the current phrase in echo area.
315 If typed repeatedly
, show the previous
10 candidates.
316 0.
.9 kkc-select-from-list
317 Select a candidate corresponding to the typed number.
319 Convert the current phrase to Hiragana
321 Convert the current phrase to Katakana
323 Extend the current phrase
; pull in the first character of
326 Contract the current phrase
; drop its last character
327 back into the remaining input.
329 Accept the current phrase. If there remains input
, select
330 the first phrase as the current one
, and show the first
331 candidate for the conversion.
333 Cancel the conversion
, shift back to the Roman-Kana
336 Accept the whole conversion.
337 C-SPC
, C-
@ kkc-first-char-only
338 Accept the first character of the current conversion
,
339 delete the remaining input.
341 List these key bindings.
343 nil t t nil nil nil nil nil
344 'quail-japanese-update-translation
345 '(("K
" . quail-japanese-toggle-kana)
346 (" " . quail-japanese-kanji-kkc)
347 ("\C-m
" . quail-no-conversion)
348 ([return] . quail-no-conversion))
353 ( "a
" "\e$B$
"\e(B") ( "i" "\e$B$$\e(B") ( "u" "\e$B$&\e(B") ( "e" "\e$B$(\e(B") ( "o" "\e$B$*\e(B")
354 ("ka" "\e$B$+\e(B") ("ki" "\e$B$-\e(B") ("ku" "\e$B$/\e(B") ("ke" "\e$B$1\e(B") ("ko" "\e$B$3\e(B")
355 ("sa" "\e$B$5\e(B") ("si" "\e$B$7\e(B") ("su" "\e$B$9\e(B") ("se" "\e$B$;\e(B") ("so" "\e$B$=\e(B")
356 ("ta" "\e$B$?\e(B") ("ti" "\e$B$A\e(B") ("tu" "\e$B$D\e(B") ("te" "\e$B$F\e(B") ("to" "\e$B$H\e(B")
357 ("na" "\e$B$J\e(B") ("ni" "\e$B$K\e(B") ("nu" "\e$B$L\e(B") ("ne" "\e$B$M\e(B") ("no" "\e$B$N\e(B")
358 ("ha" "\e$B$O\e(B") ("hi" "\e$B$R\e(B") ("hu" "\e$B$U\e(B") ("he" "\e$B$X\e(B") ("ho" "\e$B$[\e(B")
359 ("ma" "\e$B$^\e(B") ("mi" "\e$B$_\e(B") ("mu" "\e$B$`\e(B") ("me" "\e$B$a\e(B") ("mo" "\e$B$b\e(B")
360 ("ya" "\e$B$d\e(B") ("yu" "\e$B$f\e(B") ("yo" "\e$B$h\e(B")
361 ("ra" "\e$B$i\e(B") ("ri" "\e$B$j\e(B") ("ru" "\e$B$k\e(B") ("re" "\e$B$l\e(B") ("ro" "\e$B$m\e(B")
362 ("la" "\e$B$i\e(B") ("li" "\e$B$j\e(B") ("lu" "\e$B$k\e(B") ("le" "\e$B$l\e(B") ("lo" "\e$B$m\e(B")
363 ("wa" "\e$B$o\e(B") ("wi" "\e$B$p\e(B") ("wu" "\e$B$&\e(B") ("we" "\e$B$q\e(B") ("wo" "\e$B$r\e(B")
365 ("ga" "\e$B$,\e(B") ("gi" "\e$B$.\e(B") ("gu" "\e$B$0\e(B") ("ge" "\e$B$2\e(B") ("go" "\e$B$4\e(B")
366 ("za" "\e$B$6\e(B") ("zi" "\e$B$8\e(B") ("zu" "\e$B$:\e(B") ("ze" "\e$B$<\e(B") ("zo" "\e$B$>\e(B")
367 ("da" "\e$B$@\e(B") ("di" "\e$B$B\e(B") ("du" "\e$B$E\e(B") ("de" "\e$B$G\e(B") ("do" "\e$B$I\e(B")
368 ("ba" "\e$B$P\e(B") ("bi" "\e$B$S\e(B") ("bu" "\e$B$V\e(B") ("be" "\e$B$Y\e(B") ("bo" "\e$B$\\e(B")
369 ("pa" "\e$B$Q\e(B") ("pi" "\e$B$T\e(B") ("pu" "\e$B$W\e(B") ("pe" "\e$B$Z\e(B") ("po" "\e$B$]\e(B")
371 ("kya" ["\e$B$-$c\e(B"]) ("kyu" ["\e$B$-$e\e(B"]) ("kye" ["\e$B$-$'\e(B"]) ("kyo" ["\e$B$-$g\e(B"])
372 ("sya" ["\e$B$7$c\e(B"]) ("syu" ["\e$B$7$e\e(B"]) ("sye" ["\e$B$7$'\e(B"]) ("syo" ["\e$B$7$g\e(B"])
373 ("sha" ["\e$B$7$c\e(B"]) ("shu" ["\e$B$7$e\e(B"]) ("she" ["\e$B$7$'\e(B"]) ("sho" ["\e$B$7$g\e(B"])
374 ("cha" ["\e$B$A$c\e(B"]) ("chu" ["\e$B$A$e\e(B"]) ("che" ["\e$B$A$'\e(B"]) ("cho" ["\e$B$A$g\e(B"])
375 ("tya" ["\e$B$A$c\e(B"]) ("tyu" ["\e$B$A$e\e(B"]) ("tye" ["\e$B$A$'\e(B"]) ("tyo" ["\e$B$A$g\e(B"])
376 ("nya" ["\e$B$K$c\e(B"]) ("nyu" ["\e$B$K$e\e(B"]) ("nye" ["\e$B$K$'\e(B"]) ("nyo" ["\e$B$K$g\e(B"])
377 ("hya" ["\e$B$R$c\e(B"]) ("hyu" ["\e$B$R$e\e(B"]) ("hye" ["\e$B$R$'\e(B"]) ("hyo" ["\e$B$R$g\e(B"])
378 ("mya" ["\e$B$_$c\e(B"]) ("myu" ["\e$B$_$e\e(B"]) ("mye" ["\e$B$_$'\e(B"]) ("myo" ["\e$B$_$g\e(B"])
379 ("rya" ["\e$B$j$c\e(B"]) ("ryu" ["\e$B$j$e\e(B"]) ("rye" ["\e$B$j$'\e(B"]) ("ryo" ["\e$B$j$g\e(B"])
380 ("lya" ["\e$B$j$c\e(B"]) ("lyu" ["\e$B$j$e\e(B"]) ("lye" ["\e$B$j$'\e(B"]) ("lyo" ["\e$B$j$g\e(B"])
381 ("gya" ["\e$B$.$c\e(B"]) ("gyu" ["\e$B$.$e\e(B"]) ("gye" ["\e$B$.$'\e(B"]) ("gyo" ["\e$B$.$g\e(B"])
382 ("zya" ["\e$B$8$c\e(B"]) ("zyu" ["\e$B$8$e\e(B"]) ("zye" ["\e$B$8$'\e(B"]) ("zyo" ["\e$B$8$g\e(B"])
383 ("jya" ["\e$B$8$c\e(B"]) ("jyu" ["\e$B$8$e\e(B"]) ("jye" ["\e$B$8$'\e(B"]) ("jyo" ["\e$B$8$g\e(B"])
384 ( "ja" ["\e$B$8$c\e(B"]) ( "ju" ["\e$B$8$e\e(B"]) ( "je" ["\e$B$8$'\e(B"]) ( "jo" ["\e$B$8$g\e(B"])
385 ("bya" ["\e$B$S$c\e(B"]) ("byu" ["\e$B$S$e\e(B"]) ("bye" ["\e$B$S$'\e(B"]) ("byo" ["\e$B$S$g\e(B"])
386 ("pya" ["\e$B$T$c\e(B"]) ("pyu" ["\e$B$T$e\e(B"]) ("pye" ["\e$B$T$'\e(B"]) ("pyo" ["\e$B$T$g\e(B"])
388 ("kwa" ["\e$B$/$n\e(B"]) ("kwi" ["\e$B$/$#\e(B"]) ("kwe" ["\e$B$/$'\e(B"]) ("kwo" ["\e$B$/$)\e(B"])
389 ("tsa" ["\e$B$D$!\e(B"]) ("tsi" ["\e$B$D$#\e(B"]) ("tse" ["\e$B$D$'\e(B"]) ("tso" ["\e$B$D$)\e(B"])
390 ( "fa" ["\e$B$U$!\e(B"]) ( "fi" ["\e$B$U$#\e(B"]) ( "fe" ["\e$B$U$'\e(B"]) ( "fo" ["\e$B$U$)\e(B"])
391 ("gwa" ["\e$B$0$n\e(B"]) ("gwi" ["\e$B$0$#\e(B"]) ("gwe" ["\e$B$0$'\e(B"]) ("gwo" ["\e$B$0$)\e(B"])
393 ("dyi" ["\e$B$G$#\e(B"]) ("dyu" ["\e$B$I$%\e(B"]) ("dye" ["\e$B$G$'\e(B"]) ("dyo" ["\e$B$I$)\e(B"])
394 ("xwi" ["\e$B$&$#\e(B"]) ("xwe" ["\e$B$&$'\e(B"]) ("xwo" ["\e$B$&$)\e(B"])
396 ("shi" "\e$B$7\e(B") ("tyi" ["\e$B$F$#\e(B"]) ("chi" "\e$B$A\e(B") ("tsu" "\e$B$D\e(B") ("ji" "\e$B$8\e(B")
398 ("ye" ["\e$B$$$'\e(B"])
400 ("va" ["\e$B%t$!\e(B"]) ("vi" ["\e$B%t$#\e(B"]) ("vu" "\e$B%t\e(B") ("ve" ["\e$B%t$'\e(B"]) ("vo" ["\e$B%t$)\e(B"])
402 ("xa" "\e$B$!\e(B") ("xi" "\e$B$#\e(B") ("xu" "\e$B$%\e(B") ("xe" "\e$B$'\e(B") ("xo" "\e$B$)\e(B")
403 ("xtu" "\e$B$C\e(B") ("xya" "\e$B$c\e(B") ("xyu" "\e$B$e\e(B") ("xyo" "\e$B$g\e(B") ("xwa" "\e$B$n\e(B")
404 ("xka" "\e$B%u\e(B") ("xke" "\e$B%v\e(B")
406 ("1" "\e$B#1\e(B") ("2" "\e$B#2\e(B") ("3" "\e$B#3\e(B") ("4" "\e$B#4\e(B") ("5" "\e$B#5\e(B")
407 ("6" "\e$B#6\e(B") ("7" "\e$B#7\e(B") ("8" "\e$B#8\e(B") ("9" "\e$B#9\e(B") ("0" "\e$B#0\e(B")
409 ("!" "\e$B!*\e(B") ("@" "\e$B!w\e(B") ("#" "\e$B!t\e(B") ("$" "\e$B!p\e(B") ("%" "\e$B!s\e(B")
410 ("^" "\e$B!0\e(B") ("&" "\e$B!u\e(B") ("*" "\e$B!v\e(B") ("(" "\e$B!J\e(B") (")" "\e$B!K\e(B")
411 ("-" "\e$B!<\e(B") ("=" "\e$B!a\e(B") ("`" "\e$B!.\e(B") ("\\" "\e$B!o\e(B") ("|" "\e$B!C\e(B")
412 ("_" "\e$B!2\e(B") ("+" "\e$B!\\e(B") ("~" "\e$B!1\e(B") ("[" "\e$B!V\e(B") ("]" "\e$B!W\e(B")
413 ("{" "\e$B!P\e(B") ("}" "\e$B!Q\e(B") (":" "\e$B!'\e(B") (";" "\e$B!(\e(B") ("\"" "\e$B!I\e(B")
414 ("'" "\e$B!G\e(B") ("." "\e$B!#\e(B") ("," "\e$B!"\e(B") ("<" "\e$B
!c
\e(B") (">" "\e$B
!d
\e(B")
415 ("?
" "\e$B
!)\e(B") ("/" "\e$B
!?
\e(B")
417 ("z1
" "\e$B
!{\e(B") ("z
!" "\e$B
!|
\e(B")
418 ("z2
" "\e$B
"&\e(B") ("z@" "\e$B"'\e(B")
419 ("z3
" "\e$B
"$\e(B") ("z#" "\e$B"%
\e(B")
420 ("z4
" "\e$B
""\e(B") ("z$
" "\e$B
"#\e(B")
421 ("z5" "\e$B!~\e(B") ("z%" "\e$B"!\e(B")
422 ("z6
" "\e$B
!y
\e(B") ("z^
" "\e$B
!z
\e(B")
423 ("z7
" "\e$B
!}\e(B") ("z
&" "\e$B
!r
\e(B")
424 ("z8
" "\e$B
!q
\e(B") ("z
*" "\e$B
!_
\e(B")
425 ("z9
" "\e$B
!i
\e(B") ("z
(" "\e$B
!Z
\e(B")
426 ("z0
" "\e$B
!j
\e(B") ("z
)" "\e$B
![\e(B")
427 ("z-
" "\e$B
!A
\e(B") ("z_
" "\e$B
!h
\e(B")
428 ("z
=" "\e$B
!b
\e(B") ("z
+" "\e$B
!^
\e(B")
429 ("z
\\" "\e$B
!@\e(B") ("z|
" "\e$B
!B
\e(B")
430 ("z
`" "\e$B
!-
\e(B") ("z~
" "\e$B
!/\e(B")
432 ("zq
" "\e$B
!T
\e(B") ("zQ
" "\e$B
!R
\e(B")
433 ("zw
" "\e$B
!U
\e(B") ("zW
" "\e$B
!S
\e(B")
434 ("zr
" "\e$B
!9\e(B") ("zR
" "\e$B
!8\e(B")
435 ("zt
" "\e$B
!:\e(B") ("zT
" "\e$B
!x
\e(B")
436 ("zp
" "\e$B
")\e(B") ("zP" "\e$B",\e(B")
437 ("z
[" "\e$B
!X
\e(B") ("z
{" "\e$B
!L
\e(B")
438 ("z
]" "\e$B
!Y
\e(B") ("z
}" "\e$B
!M
\e(B")
440 ("zs
" "\e$B
!3\e(B") ("zS
" "\e$B
!4\e(B")
441 ("zd
" "\e$B
!5\e(B") ("zD
" "\e$B
!6\e(B")
442 ("zf
" "\e$B
!7\e(B") ("zF
" "\e$B
"*\e(B")
443 ("zg" "\e$B!>\e(B") ("zG" "\e$B!=\e(B")
448 ("z;" "\e$B!+\e(B") ("z:" "\e$B!,\e(B")
449 ("z\'" "\e$B!F\e(B") ("z\"" "\e$B!H\e(B")
451 ("zx" [":-"]) ("zX" [":-)"])
452 ("zc" "\e$B!;\e(B") ("zC" "\e$B!n\e(B")
453 ("zv" "\e$B"(\e(B") ("zV
" "\e$B
!`\e(B")
454 ("zb
" "\e$B
!k
\e(B") ("zB
" "\e$B
"+\e(B")
455 ("zn" "\e$B!l\e(B") ("zN" "\e$B"-
\e(B")
456 ("zm
" "\e$B
!m
\e(B") ("zM
" "\e$B
".\e(B")
457 ("z," "\e$B!E\e(B") ("z<" "\e$B!e\e(B")
458 ("z." "\e$B!D\e(B") ("z>" "\e$B!f\e(B")
459 ("z/" "\e$B!&\e(B") ("z?" "\e$B!g\e(B")
461 ("\\\\" quail-japanese-self-insert-and-switch-to-alpha
)
462 ("{{" quail-japanese-self-insert-and-switch-to-alpha
)
463 ("}}" quail-japanese-self-insert-and-switch-to-alpha
)
465 ("qq" quail-japanese-switch-package
)
466 ("qz" quail-japanese-switch-package
)
470 (quail-define-package
471 "japanese-ascii" "Japanese" "Aa"
473 "Temporary ASCII input mode while using Quail package `japanese'
474 Type \"qq\" to go back to previous package."
477 (quail-define-rules ("qq" quail-japanese-switch-package
))
479 (quail-define-package
480 "japanese-zenkaku" "Japanese" "\e$B#A\e(B"
482 "Japanese zenkaku alpha numeric character input method
483 ---- Special key bindings ----
484 qq: toggle between `japanese-zenkaku' and `japanese-ascii'
485 qh: use `japanese' package, \"qz\" puts you back to `japanese-zenkaku'
491 (" " "\e$B!!\e(B") ("!" "\e$B!*\e(B") ("\"" "\e$B!m\e(B") ("#" "\e$B!t\e(B")
492 ("$" "\e$B!p\e(B") ("%" "\e$B!s\e(B") ("&" "\e$B!u\e(B") ("'" "\e$B!l\e(B")
493 ("(" "\e$B!J\e(B") (")" "\e$B!K\e(B") ("*" "\e$B!v\e(B") ("+" "\e$B!\\e(B")
494 ("," "\e$B!$\e(B") ("-" "\e$B!]\e(B") ("." "\e$B!%\e(B") ("/" "\e$B!?\e(B")
495 ("0" "\e$B#0\e(B") ("1" "\e$B#1\e(B") ("2" "\e$B#2\e(B") ("3" "\e$B#3\e(B")
496 ("4" "\e$B#4\e(B") ("5" "\e$B#5\e(B") ("6" "\e$B#6\e(B") ("7" "\e$B#7\e(B")
497 ("8" "\e$B#8\e(B") ("9" "\e$B#9\e(B") (":" "\e$B!'\e(B") (";" "\e$B!(\e(B")
498 ("<" "\e$B!c\e(B") ("=" "\e$B!a\e(B") (">" "\e$B!d\e(B") ("?" "\e$B!)\e(B")
499 ("@" "\e$B!w\e(B") ("A" "\e$B#A\e(B") ("B" "\e$B#B\e(B") ("C" "\e$B#C\e(B")
500 ("D" "\e$B#D\e(B") ("E" "\e$B#E\e(B") ("F" "\e$B#F\e(B") ("G" "\e$B#G\e(B")
501 ("H" "\e$B#H\e(B") ("I" "\e$B#I\e(B") ("J" "\e$B#J\e(B") ("K" "\e$B#K\e(B")
502 ("L" "\e$B#L\e(B") ("M" "\e$B#M\e(B") ("N" "\e$B#N\e(B") ("O" "\e$B#O\e(B")
503 ("P" "\e$B#P\e(B") ("Q" "\e$B#Q\e(B") ("R" "\e$B#R\e(B") ("S" "\e$B#S\e(B")
504 ("T" "\e$B#T\e(B") ("U" "\e$B#U\e(B") ("V" "\e$B#V\e(B") ("W" "\e$B#W\e(B")
505 ("X" "\e$B#X\e(B") ("Y" "\e$B#Y\e(B") ("Z" "\e$B#Z\e(B") ("[" "\e$B!N\e(B")
506 ("\\" "\e$B!o\e(B") ("]" "\e$B!O\e(B") ("^" "\e$B!0\e(B") ("_" "\e$B!2\e(B")
507 ("`" "\e$B!F\e(B") ("a" "\e$B#a\e(B") ("b" "\e$B#b\e(B") ("c" "\e$B#c\e(B")
508 ("d" "\e$B#d\e(B") ("e" "\e$B#e\e(B") ("f" "\e$B#f\e(B") ("g" "\e$B#g\e(B")
509 ("h" "\e$B#h\e(B") ("i" "\e$B#i\e(B") ("j" "\e$B#j\e(B") ("k" "\e$B#k\e(B")
510 ("l" "\e$B#l\e(B") ("m" "\e$B#m\e(B") ("n" "\e$B#n\e(B") ("o" "\e$B#o\e(B")
511 ("p" "\e$B#p\e(B") ("q" "\e$B#q\e(B") ("r" "\e$B#r\e(B") ("s" "\e$B#s\e(B")
512 ("t" "\e$B#t\e(B") ("u" "\e$B#u\e(B") ("v" "\e$B#v\e(B") ("w" "\e$B#w\e(B")
513 ("x" "\e$B#x\e(B") ("y" "\e$B#y\e(B") ("z" "\e$B#z\e(B") ("{" "\e$B!P\e(B")
514 ("|" "\e$B!C\e(B") ("}" "\e$B!Q\e(B") ("~" "\e$B!A\e(B")
516 ("qq" quail-japanese-switch-package
)
517 ("qh" quail-japanese-switch-package
)
520 (defun quail-japanese-hankaku-update-translation (control-flag)
522 (quail-japanese-update-translation control-flag
))
523 (if (or (and (stringp quail-current-str
)
524 (> (length quail-current-str
) 0))
525 (integerp quail-current-str
))
526 (setq quail-current-str
(japanese-hankaku quail-current-str
)))
529 (quail-define-package
530 "japanese-hankaku-kana"
531 "Japanese" "\e(I1\e(B"
533 "Japanese hankaku katakana input method by Roman transliteration
534 ---- Special key bindings ----
535 qq: toggle between `japanese-hankaku-kana' and `japanese-ascii'
537 nil t t nil nil nil nil nil
538 'quail-japanese-hankaku-update-translation
)
540 ;; Use the same map as that of `japanese'.
541 (setcar (cdr (cdr quail-current-package
))
542 (nth 2 (assoc "japanese" quail-package-alist
)))
544 (quail-define-package
545 "japanese-hiragana" "Japanese" "\e$B$"\e(B"
547 "Japanese hiragana input method by Roman transliteration
"
548 nil t t nil nil nil nil nil
549 'quail-japanese-update-translation)
551 ;; Use the same map as that of `japanese'.
552 (setcar (cdr (cdr quail-current-package))
553 (nth 2 (assoc "japanese
" quail-package-alist)))
555 ;; Update Quail translation region while converting Hiragana to Katakana.
556 (defun quail-japanese-katakana-update-translation (control-flag)
558 (quail-japanese-update-translation control-flag))
559 (if (or (and (stringp quail-current-str)
560 (> (length quail-current-str) 0))
561 (integerp quail-current-str))
562 (setq quail-current-str (japanese-katakana quail-current-str)))
565 (quail-define-package
566 "japanese-katakana
" "Japanese
" "\e$B%
"\e(B"
568 "Japanese katakana input method by Roman transliteration"
569 nil t t nil nil nil nil nil
570 'quail-japanese-katakana-update-translation
)
572 ;; Use the same map as that of `japanese'.
573 (setcar (cdr (cdr quail-current-package
))
574 (nth 2 (assoc "japanese" quail-package-alist
)))