1 ;;; japanese.el --- Quail package for inputting Japanese -*-coding: iso-2022-7bit;-*-
3 ;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007
4 ;; Free Software Foundation, Inc.
5 ;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
7 ;; National Institute of Advanced Industrial Science and Technology (AIST)
8 ;; Registration Number H14PRO021
10 ;; Keywords: multilingual, input method, Japanese
12 ;; This file is part of GNU Emacs.
14 ;; GNU Emacs is free software; you can redistribute it and/or modify
15 ;; it under the terms of the GNU General Public License as published by
16 ;; the Free Software Foundation; either version 2, or (at your option)
19 ;; GNU Emacs is distributed in the hope that it will be useful,
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22 ;; GNU General Public License for more details.
24 ;; You should have received a copy of the GNU General Public License
25 ;; along with GNU Emacs; see the file COPYING. If not, write to the
26 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
27 ;; Boston, MA 02110-1301, USA.
36 (defvar quail-japanese-use-double-n nil
37 "If non-nil, use type \"nn\" to insert \e$B$s\e(B.")
39 ;; Update Quail translation region while considering Japanese bizarre
41 (defun quail-japanese-update-translation (control-flag)
42 (if (null control-flag
)
43 (setq quail-current-str
44 (if (/= (aref quail-current-key
0) ?q
)
45 (or quail-current-str quail-current-key
)
47 (if (integerp control-flag
)
48 (if (= control-flag
0)
49 (setq quail-current-str
(aref quail-current-key
0))
50 (cond ((= (aref quail-current-key
0) ?n
)
51 (setq quail-current-str ?
\e$B$s
\e(B)
52 (if (and quail-japanese-use-double-n
53 (= (aref quail-current-key
1) ?n
))
54 (setq control-flag t
)))
55 ((= (aref quail-current-key
0) (aref quail-current-key
1))
56 (setq quail-current-str ?
\e$B$C
\e(B))
58 (setq quail-current-str
(aref quail-current-key
0))))
59 (if (integerp control-flag
)
60 (setq unread-command-events
61 (list (aref quail-current-key control-flag
)))))))
64 ;; Convert Hiragana <-> Katakana in the current translation region.
65 (defun quail-japanese-toggle-kana ()
67 (setq quail-translating nil
)
68 (let ((start (overlay-start quail-conv-overlay
))
69 (end (overlay-end quail-conv-overlay
)))
72 (if (re-search-forward "\\cH" end t
)
73 (japanese-katakana-region start end
)
74 (japanese-hiragana-region start end
)))
75 (setq quail-conversion-str
76 (buffer-substring (overlay-start quail-conv-overlay
)
77 (overlay-end quail-conv-overlay
)))))
79 ;; Convert Hiragana in the current translation region to Kanji by KKC
80 ;; (Kana Kanji Converter) utility.
81 (defun quail-japanese-kanji-kkc ()
83 (when (= (char-before (overlay-end quail-conv-overlay
)) ?n
)
84 ;; The last char is `n'. We had better convert it to `\e$B$s\e(B'
85 ;; before kana-kanji conversion.
86 (goto-char (1- (overlay-end quail-conv-overlay
)))
89 (let* ((from (copy-marker (overlay-start quail-conv-overlay
)))
90 (len (- (overlay-end quail-conv-overlay
) from
)))
91 (quail-delete-overlays)
92 (setq quail-current-str nil
)
94 (let ((result (kkc-region from
(+ from len
))))
95 (move-overlay quail-conv-overlay from
(point))
96 (setq quail-conversion-str
(buffer-substring from
(point)))
97 (if (= (+ from result
) (point))
98 (setq quail-converting nil
))
99 (setq quail-translating nil
))
100 (set-marker from nil
))))
102 (defun quail-japanese-self-insert-and-switch-to-alpha (key idx
)
103 (quail-delete-region)
104 (setq unread-command-events
(list (aref key
(1- idx
))))
105 (quail-japanese-switch-package "q" 1))
107 (defvar quail-japanese-switch-table
108 '((?z .
"japanese-zenkaku")
109 (?k .
"japanese-hankaku-kana")
111 (?q .
("japanese-ascii"))))
113 (defvar quail-japanese-package-saved nil
)
114 (make-variable-buffer-local 'quail-japanese-package-saved
)
115 (put 'quail-japanese-package-saved
'permanent-local t
)
117 (defun quail-japanese-switch-package (key idx
)
118 (quail-delete-region)
119 (setq quail-current-str nil
121 quail-conversion-str
"")
122 (let ((pkg (cdr (assq (aref key
(1- idx
)) quail-japanese-switch-table
))))
124 (quail-error "No package to be switched")
126 (activate-input-method pkg
)
127 (if (string= (car pkg
) current-input-method
)
128 (if quail-japanese-package-saved
129 (activate-input-method quail-japanese-package-saved
))
130 (setq quail-japanese-package-saved current-input-method
)
131 (activate-input-method (car pkg
))))))
132 (throw 'quail-tag nil
))
134 (defvar quail-japanese-transliteration-rules
135 '(( "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")
136 ("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")
137 ("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")
138 ("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")
139 ("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")
140 ("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")
141 ("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")
142 ("ya" "\e$B$d\e(B") ("yu" "\e$B$f\e(B") ("yo" "\e$B$h\e(B")
143 ("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")
144 ("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")
145 ("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")
147 ("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")
148 ("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")
149 ("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")
150 ("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")
151 ("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")
153 ("kya" ["\e$B$-$c\e(B"]) ("kyu" ["\e$B$-$e\e(B"]) ("kye" ["\e$B$-$'\e(B"]) ("kyo" ["\e$B$-$g\e(B"])
154 ("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"])
155 ("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"])
156 ("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"])
157 ("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"])
158 ("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"])
159 ("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"])
160 ("mya" ["\e$B$_$c\e(B"]) ("myu" ["\e$B$_$e\e(B"]) ("mye" ["\e$B$_$'\e(B"]) ("myo" ["\e$B$_$g\e(B"])
161 ("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"])
162 ("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"])
163 ("gya" ["\e$B$.$c\e(B"]) ("gyu" ["\e$B$.$e\e(B"]) ("gye" ["\e$B$.$'\e(B"]) ("gyo" ["\e$B$.$g\e(B"])
164 ("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"])
165 ("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"])
166 ( "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"])
167 ("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"])
168 ("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"])
170 ("kwa" ["\e$B$/$n\e(B"]) ("kwi" ["\e$B$/$#\e(B"]) ("kwe" ["\e$B$/$'\e(B"]) ("kwo" ["\e$B$/$)\e(B"])
171 ("tsa" ["\e$B$D$!\e(B"]) ("tsi" ["\e$B$D$#\e(B"]) ("tse" ["\e$B$D$'\e(B"]) ("tso" ["\e$B$D$)\e(B"])
172 ( "fa" ["\e$B$U$!\e(B"]) ( "fi" ["\e$B$U$#\e(B"]) ( "fe" ["\e$B$U$'\e(B"]) ( "fo" ["\e$B$U$)\e(B"])
173 ("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"])
175 ("dyi" ["\e$B$G$#\e(B"]) ("dyu" ["\e$B$I$%\e(B"]) ("dye" ["\e$B$G$'\e(B"]) ("dyo" ["\e$B$I$)\e(B"])
176 ("xwi" ["\e$B$&$#\e(B"]) ("xwe" ["\e$B$&$'\e(B"]) ("xwo" ["\e$B$&$)\e(B"])
178 ("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")
180 ("ye" ["\e$B$$$'\e(B"])
182 ("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"])
184 ("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")
185 ("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")
186 ("xka" "\e$B%u\e(B") ("xke" "\e$B%v\e(B")
188 ("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")
189 ("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")
191 ("!" "\e$B!*\e(B") ("@" "\e$B!w\e(B") ("#" "\e$B!t\e(B") ("$" "\e$B!p\e(B") ("%" "\e$B!s\e(B")
192 ("^" "\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")
193 ("-" "\e$B!<\e(B") ("=" "\e$B!a\e(B") ("`" "\e$B!.\e(B") ("\\" "\e$B!o\e(B") ("|" "\e$B!C\e(B")
194 ("_" "\e$B!2\e(B") ("+" "\e$B!\\e(B") ("~" "\e$B!1\e(B") ("[" "\e$B!V\e(B") ("]" "\e$B!W\e(B")
195 ("{" "\e$B!P\e(B") ("}" "\e$B!Q\e(B") (":" "\e$B!'\e(B") (";" "\e$B!(\e(B") ("\"" "\e$B!I\e(B")
196 ("'" "\e$B!G\e(B") ("." "\e$B!#\e(B") ("," "\e$B!"\e(B") ("<" "\e$B
!c
\e(B") (">" "\e$B
!d
\e(B")
197 ("?
" "\e$B
!)\e(B") ("/" "\e$B
!?
\e(B")
199 ("z1
" "\e$B
!{\e(B") ("z
!" "\e$B
!|
\e(B")
200 ("z2
" "\e$B
"&\e(B") ("z@" "\e$B"'\e(B")
201 ("z3
" "\e$B
"$\e(B") ("z#" "\e$B"%
\e(B")
202 ("z4
" "\e$B
""\e(B") ("z$
" "\e$B
"#\e(B")
203 ("z5" "\e$B!~\e(B") ("z%" "\e$B"!\e(B")
204 ("z6
" "\e$B
!y
\e(B") ("z^
" "\e$B
!z
\e(B")
205 ("z7
" "\e$B
!}\e(B") ("z
&" "\e$B
!r
\e(B")
206 ("z8
" "\e$B
!q
\e(B") ("z
*" "\e$B
!_
\e(B")
207 ("z9
" "\e$B
!i
\e(B") ("z
(" "\e$B
!Z
\e(B")
208 ("z0
" "\e$B
!j
\e(B") ("z
)" "\e$B
![\e(B")
209 ("z-
" "\e$B
!A
\e(B") ("z_
" "\e$B
!h
\e(B")
210 ("z
=" "\e$B
!b
\e(B") ("z
+" "\e$B
!^
\e(B")
211 ("z
\\" "\e$B
!@\e(B") ("z|
" "\e$B
!B
\e(B")
212 ("z
`" "\e$B
!-
\e(B") ("z~
" "\e$B
!/\e(B")
214 ("zq
" "\e$B
!T
\e(B") ("zQ
" "\e$B
!R
\e(B")
215 ("zw
" "\e$B
!U
\e(B") ("zW
" "\e$B
!S
\e(B")
216 ("zr
" "\e$B
!9\e(B") ("zR
" "\e$B
!8\e(B")
217 ("zt
" "\e$B
!:\e(B") ("zT
" "\e$B
!x
\e(B")
218 ("zp
" "\e$B
")\e(B") ("zP" "\e$B",\e(B")
219 ("z
[" "\e$B
!X
\e(B") ("z
{" "\e$B
!L
\e(B")
220 ("z
]" "\e$B
!Y
\e(B") ("z
}" "\e$B
!M
\e(B")
222 ("zs
" "\e$B
!3\e(B") ("zS
" "\e$B
!4\e(B")
223 ("zd
" "\e$B
!5\e(B") ("zD
" "\e$B
!6\e(B")
224 ("zf
" "\e$B
!7\e(B") ("zF
" "\e$B
"*\e(B")
225 ("zg" "\e$B!>\e(B") ("zG" "\e$B!=\e(B")
230 ("z;" "\e$B!+\e(B") ("z:" "\e$B!,\e(B")
231 ("z\'" "\e$B!F\e(B") ("z\"" "\e$B!H\e(B")
233 ("zx" [":-"]) ("zX" [":-)"])
234 ("zc" "\e$B!;\e(B") ("zC" "\e$B!n\e(B")
235 ("zv" "\e$B"(\e(B") ("zV
" "\e$B
!`\e(B")
236 ("zb
" "\e$B
!k
\e(B") ("zB
" "\e$B
"+\e(B")
237 ("zn" "\e$B!l\e(B") ("zN" "\e$B"-
\e(B")
238 ("zm
" "\e$B
!m
\e(B") ("zM
" "\e$B
".\e(B")
239 ("z," "\e$B!E\e(B") ("z<" "\e$B!e\e(B")
240 ("z." "\e$B!D\e(B") ("z>" "\e$B!f\e(B")
241 ("z/" "\e$B!&\e(B") ("z?" "\e$B!g\e(B")
243 ("\\\\" quail-japanese-self-insert-and-switch-to-alpha
)
244 ("{{" quail-japanese-self-insert-and-switch-to-alpha
)
245 ("}}" quail-japanese-self-insert-and-switch-to-alpha
)
247 ("qq" quail-japanese-switch-package
)
248 ("qz" quail-japanese-switch-package
)
252 ;; \e$B%m!<%^;zF~NO5Z$S2>L>4A;zJQ49$K$h$kF|K\8lF~NO%a%=%C%I\e(B
254 ;; \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
255 ;; \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
256 ;; \e$B%Z!<%9%-!<$r2!$9$3$H$K$h$j!"<!$N%9%F!<%8!V2>L>4A;zJQ49!W$X?J$`!#\e(B
258 ;; \e$B!V%m!<%^;z2>L>JQ49!W\e(B
260 ;; \e$BJ?2>L>$O>.J8;z%-!<!JNs!K$rBG$D$3$H$K$h$jF~NO!#6gFIE@!"3g8LN`$OBP1~\e(B
261 ;; \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
262 ;; \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
263 ;; \e$B%H%"%C%W$5$l$F$$$k!#F~NO$5$l$?J8;z$O2<@~$G<($5$l$k!#\e(B
265 ;; \e$B$5$i$K0J2<$N%-!<$GFCJL$J=hM}$r9T$&!#\e(B
267 ;; K \e$BJ?2>L>$rJR2>L>$K!"$"$k$$$OJR2>L>$rJ?2>L>$KJQ49\e(B
268 ;; 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
269 ;; qz `japanese-zenkaku' \e$BF~NO%a%=%C%I$K%7%U%H\e(B
270 ;; qh \e$B$HBG$F$P85$KLa$k\e(B
271 ;; RET \e$B8=:_$NF~NOJ8;zNs$r3NDj\e(B
272 ;; SPC \e$B2>L>4A;zJQ49$K?J$`\e(B
274 ;; `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
275 ;; \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
276 ;; \e$BBG$D$3$H$K$h$j!"\e(B`japanese' \e$BF~NO%a%=%C%I$KLa$l$kE@$G$"$k!#\e(B
278 ;; `japanese-zenkaku' \e$BF~NO%a%=%C%I$OA43Q1Q?t;z$rF~NO$9$k$N$K;H$&!#\e(B
280 ;; \e$B!V%m!<%^;z2>L>JQ49!W%9%F!<%8$G$N%-!<%7!<%1%s%9$N%j%9%H$O:G8e$KIU$1\e(B
283 ;; \e$B!V2>L>4A;zJQ49!W\e(B
285 ;; \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
286 ;; \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
287 ;; \e$BJ,$1$i$l$k!#CmL\J8@a$KBP$7$F$O0J2<$N%3%^%s%I$,;H$($k!#\e(B
290 ;; \e$B<!$NJQ498uJd$rI=<(\e(B
291 ;; kkc-show-conversion-list-count \e$B0J>eB3$1$FBG$F$P!"JQ498uJd%j%9\e(B
292 ;; \e$B%H$r%(%3!<%(%j%"$KI=<(\e(B
294 ;; \e$BA0$NJQ498uJd$rI=<(\e(B
295 ;; kkc-show-conversion-list-count \e$B0J>eB3$1$FBG$F$P!"JQ498uJd%j%9\e(B
296 ;; \e$B%H$r%(%3!<%(%j%"$KI=<(\e(B
297 ;; l kkc-show-conversion-list-or-next-group
298 ;; \e$B:G9b#1#08D$^$G$NJQ498uJd$r%(%3!<%(%j%"$KI=<(!#\e(B
299 ;; \e$BB3$1$FBG$?$l$l$P!"<!$N#1#08uJd$rI=<(!#\e(B
300 ;; L kkc-show-conversion-list-or-prev-group
301 ;; \e$B:G9b#1#08D$^$G$NJQ498uJd$r%(%3!<%(%j%"$KI=<(!#\e(B
302 ;; \e$BB3$1$FBG$?$l$l$P!"A0$N#1#08uJd$rI=<(!#\e(B
303 ;; 0..9 kkc-select-from-list
304 ;; \e$BBG$?$l$??t;z$NJQ498uJd$rA*Br\e(B
306 ;; \e$BCmL\J8@a$rJ?2>L>$KJQ49\e(B
308 ;; \e$BCmL\J8@a$rJR2>L>$KJQ49\e(B
310 ;; \e$BCmL\J8@a$r8e$m$K0lJ8;z?-$P$9\e(B
312 ;; \e$BCmL\J8@a$r8e$m$+$i0lJ8;z=L$a$k\e(B
313 ;; C-f kkc-next-phrase
314 ;; \e$BCmL\J8@a$r3NDj$5$;$k!#$b$7;D$j$NF~NO$,$^$@$"$l$P!":G=i$NJ8@a$r\e(B
315 ;; \e$BA*Br$7!"$=$l$rCmL\J8@a$H$7!"$=$N:G=i$NJQ498uJd$rI=<($9$k!#\e(B
316 ;; DEL, C-c kkc-cancel
317 ;; \e$B2>L>4A;zJQ49$r%-%c%s%;%k$7!"%m!<%^;z2>L>JQ49$N%9%F!<%8$KLa$k!#\e(B
318 ;; return kkc-terminate
319 ;; \e$BA4J8@a$r3NDj$5$;$k!#\e(B
320 ;; C-SPC, C-@ kkc-first-char-only
321 ;; \e$B:G=i$NJ8;z$r3NDj$5$;!";D$j$O:o=|$9$k!#\e(B
323 ;; \e$B$3$l$i$N%-!<%P%$%s%I$N%j%9%H$rI=<($9$k!#$"\e(B
325 (quail-define-package
326 "japanese" "Japanese" "A\e$B$"\e(B"
328 "Japanese input method by Roman transliteration and Kana-Kanji conversion.
330 When you use this input method
, text entry proceeds in two stages
:
331 Roman-Kana transliteration and Kana-Kanji conversion. When you start
332 to enter text
, you are in the first stage
, Roman-Kana transliteration.
333 Type SPC to proceed to the next stage
, Kana-Kanji conversion.
335 :: Roman-Kana transliteration
::
337 You can input any Hiragana character as a sequence of lower-case
338 letters
, Japanese punctuation characters by typing punctuation keys
,
339 Japanese symbols by typing
`z
' followed by another key. See below for
340 a list of all available sequences. The characters you input are
343 In addition
, the following keys provide special effects
:
345 K Change Hiragana to Katakana or Katakana to Hiragana.
346 qq Toggle between this input method and the input method
`japanese-ascii
'.
347 qz Shift to the input method
`japanese-zenkaku
'.
348 Typing
\"qh
\" will put you back to this input method.
349 RET Accept the current character sequence.
350 SPC Proceed to the next stage
, Kana-Kanji conversion.
352 The input method
`japanese-ascii
' is used to enter ASCII characters.
353 This is almost the same as turning off the input method. The only
354 difference is that typing
`qq
' will put you back into the Japanese
357 The input method
`japanese-zenkaku
' is used to enter full width
358 JISX0208 characters corresponding to typed ASCII characters.
360 List of the all key sequences for Roman-Kana transliteration is shown
363 :: Kana-Kanji conversion
::
365 You can convert the current Japanese characters
(underlined) to
366 Kana-Kanji mixed text. In this stage
, the converted text is divided
367 into two parts
, the current phrase
(highlighted) and the remaining
368 input
(underlined). The following commands can be used on the
372 Show the next candidate for the current phrase.
373 If successively typed
`kkc-show-conversion-list-count
' times
,
374 conversion candidates are shown in the echo area.
376 Show the previous candidate for the current phrase.
377 If successively typed
`kkc-show-conversion-list-count
' times
,
378 conversion candidates are shown in the echo area.
379 l kkc-show-conversion-list-or-next-group
380 Show at most
10 candidates for the current phrase in echo area.
381 If typed repeatedly
, show the next
10 candidates.
382 L kkc-show-conversion-list-or-prev-group
383 Show at most
10 candidates for the current phrase in echo area.
384 If typed repeatedly
, show the previous
10 candidates.
385 0.
.9 kkc-select-from-list
386 Select a candidate corresponding to the typed number.
388 Convert the current phrase to Hiragana
390 Convert the current phrase to Katakana
392 Extend the current phrase
; pull in the first character of
395 Contract the current phrase
; drop its last character
396 back into the remaining input.
398 Accept the current phrase. If there remains input
, select
399 the first phrase as the current one
, and show the first
400 candidate for the conversion.
402 Cancel the conversion
, shift back to the Roman-Kana
405 Accept the whole conversion.
406 C-SPC
, C-
@ kkc-first-char-only
407 Accept the first character of the current conversion
,
408 delete the remaining input.
410 List these key bindings.
412 nil t t nil nil nil nil nil
413 'quail-japanese-update-translation
414 '(("K
" . quail-japanese-toggle-kana)
415 (" " . quail-japanese-kanji-kkc)
416 ("\C-m
" . quail-no-conversion)
417 ([return] . quail-no-conversion))
420 (dolist (elt quail-japanese-transliteration-rules)
421 (quail-defrule (car elt) (nth 1 elt)))
423 (quail-define-package
424 "japanese-ascii
" "Japanese
" "Aa
"
426 "Temporary ASCII input mode used within the input method
`japanese
'.
427 Type
\"qq
\" to go back to previous input method.
"
430 (quail-define-rules ("qq
" quail-japanese-switch-package))
432 (quail-define-package
433 "japanese-zenkaku
" "Japanese
" "\e$B
#A
\e(B"
435 "Japanese zenkaku alpha numeric character input method.
436 ---- Special key bindings ----
437 qq
: toggle between this input method and the input method
`japanese-ascii
'.
438 qh
: shift to the input method
`japanese
',
439 typing
\"qz
\" puts you back to this input method.
445 (" " "\e$B
!!\e(B") ("!" "\e$B
!*\e(B") ("\"" "\e$B
!m
\e(B") ("#" "\e$B
!t
\e(B")
446 ("$
" "\e$B
!p
\e(B") ("%
" "\e$B
!s
\e(B") ("&" "\e$B
!u
\e(B") ("'" "\e$B
!l
\e(B")
447 ("(" "\e$B
!J
\e(B") (")" "\e$B
!K
\e(B") ("*" "\e$B
!v
\e(B") ("+" "\e$B
!\
\e(B")
448 ("," "\e$B
!$
\e(B") ("-
" "\e$B
!]\e(B") (".
" "\e$B
!%
\e(B") ("/" "\e$B
!?
\e(B")
449 ("0" "\e$B
#0\e(B") ("1" "\e$B
#1\e(B") ("2" "\e$B
#2\e(B") ("3" "\e$B
#3\e(B")
450 ("4" "\e$B
#4\e(B") ("5" "\e$B
#5\e(B") ("6" "\e$B
#6\e(B") ("7" "\e$B
#7\e(B")
451 ("8" "\e$B
#8\e(B") ("9" "\e$B
#9\e(B") (":" "\e$B
!'\e(B") (";" "\e$B!(\e(B")
452 ("<" "\e$B!c\e(B") ("=" "\e$B!a\e(B") (">" "\e$B!d\e(B") ("?" "\e$B!)\e(B")
453 ("@" "\e$B!w\e(B") ("A" "\e$B#A\e(B") ("B" "\e$B#B\e(B") ("C" "\e$B#C\e(B")
454 ("D" "\e$B#D\e(B") ("E" "\e$B#E\e(B") ("F" "\e$B#F\e(B") ("G" "\e$B#G\e(B")
455 ("H" "\e$B#H\e(B") ("I" "\e$B#I\e(B") ("J" "\e$B#J\e(B") ("K" "\e$B#K\e(B")
456 ("L" "\e$B#L\e(B") ("M" "\e$B#M\e(B") ("N" "\e$B#N\e(B") ("O" "\e$B#O\e(B")
457 ("P" "\e$B#P\e(B") ("Q" "\e$B#Q\e(B") ("R" "\e$B#R\e(B") ("S" "\e$B#S\e(B")
458 ("T" "\e$B#T\e(B") ("U" "\e$B#U\e(B") ("V" "\e$B#V\e(B") ("W" "\e$B#W\e(B")
459 ("X" "\e$B#X\e(B") ("Y" "\e$B#Y\e(B") ("Z" "\e$B#Z\e(B") ("[" "\e$B!N\e(B")
460 ("\\" "\e$B!o\e(B") ("]" "\e$B!O\e(B") ("^" "\e$B!0\e(B") ("_" "\e$B!2\e(B")
461 ("`" "\e$B!F\e(B") ("a" "\e$B#a\e(B") ("b" "\e$B#b\e(B") ("c" "\e$B#c\e(B")
462 ("d" "\e$B#d\e(B") ("e" "\e$B#e\e(B") ("f" "\e$B#f\e(B") ("g" "\e$B#g\e(B")
463 ("h" "\e$B#h\e(B") ("i" "\e$B#i\e(B") ("j" "\e$B#j\e(B") ("k" "\e$B#k\e(B")
464 ("l" "\e$B#l\e(B") ("m" "\e$B#m\e(B") ("n" "\e$B#n\e(B") ("o" "\e$B#o\e(B")
465 ("p" "\e$B#p\e(B") ("q" "\e$B#q\e(B") ("r" "\e$B#r\e(B") ("s" "\e$B#s\e(B")
466 ("t" "\e$B#t\e(B") ("u" "\e$B#u\e(B") ("v" "\e$B#v\e(B") ("w" "\e$B#w\e(B")
467 ("x" "\e$B#x\e(B") ("y" "\e$B#y\e(B") ("z" "\e$B#z\e(B") ("{" "\e$B!P\e(B")
468 ("|" "\e$B!C\e(B") ("}" "\e$B!Q\e(B") ("~" "\e$B!A\e(B")
470 ("qq" quail-japanese-switch-package
)
471 ("qh" quail-japanese-switch-package
)
474 (defun quail-japanese-hankaku-update-translation (control-flag)
476 (quail-japanese-update-translation control-flag
))
477 (if (or (and (stringp quail-current-str
)
478 (> (length quail-current-str
) 0))
479 (integerp quail-current-str
))
480 (setq quail-current-str
(japanese-hankaku quail-current-str
)))
483 (quail-define-package
484 "japanese-hankaku-kana"
485 "Japanese" "\e(I1\e(B"
487 "Japanese hankaku katakana input method by Roman transliteration.
488 ---- Special key bindings ----
489 qq: toggle between this input method and the input method `japanese-ascii'.
491 nil t t nil nil nil nil nil
492 'quail-japanese-hankaku-update-translation
)
494 (dolist (elt quail-japanese-transliteration-rules
)
495 (quail-defrule (car elt
)
496 (let ((trans (nth 1 elt
)))
497 (when (or (stringp trans
) (vectorp trans
))
498 (let ((s (japanese-hankaku (if (stringp trans
)
501 ;; If the result of the conversion is a string
502 ;; containing more than one character, make the
503 ;; result a vector, so that quail-defrule
504 ;; recognizes the whole string is the
505 ;; translation, instead of interpreting
506 ;; individual characters as alternative
508 (if (and (stringp s
) (> (length s
) 1))
509 (setq trans
(vector s
))
513 (quail-define-package
514 "japanese-hiragana" "Japanese" "\e$B$"\e(B"
516 "Japanese hiragana input method by Roman transliteration.
"
517 nil t t nil nil nil nil nil
518 'quail-japanese-update-translation)
520 ;; Use the same map as that of `japanese'.
521 (setcar (cdr (cdr quail-current-package))
522 (nth 2 (assoc "japanese
" quail-package-alist)))
524 ;; Update Quail translation region while converting Hiragana to Katakana.
525 (defun quail-japanese-katakana-update-translation (control-flag)
527 (quail-japanese-update-translation control-flag))
528 (if (or (and (stringp quail-current-str)
529 (> (length quail-current-str) 0))
530 (integerp quail-current-str))
531 (setq quail-current-str (japanese-katakana quail-current-str)))
534 (quail-define-package
535 "japanese-katakana
" "Japanese
" "\e$B%
"\e(B"
537 "Japanese katakana input method by Roman transliteration."
538 nil t t nil nil nil nil nil
539 'quail-japanese-katakana-update-translation
)
541 (dolist (elt quail-japanese-transliteration-rules
)
542 (quail-defrule (car elt
)
543 (let ((trans (nth 1 elt
)))
544 (cond ((stringp trans
)
545 (japanese-katakana trans
))
547 (vector (japanese-katakana (aref trans
0))))
550 ;;; arch-tag: 47e0bfd4-6ecc-4d01-89a8-d687c5e01ff7
551 ;;; japanese.el ends here