leim/quail/japanese.el

   1 ;;; quail/japanese.el --- Quail package for inputting Japanese
   2
   3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
   4 ;; Licensed to the Free Software Foundation.
   5
   6 ;; Keywords: multilingual, input method, Japanese
   7
   8 ;; This file is part of GNU Emacs.
   9
  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)
  13 ;; any later version.
  14
  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.
  19
  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.
  24
  25 ;;; Code:
  26
  27 (require 'quail)
  28 (require 'kkc)
  29
  30 (defvar quail-japanese-use-double-n nil
  31   "If non-nil, use type \"nn\" to insert \e$B$s\e(B.")
  32
  33 ;; Update Quail translation region while considering Japanese bizarre
  34 ;; translation rules.
  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)
  40               ""))
  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))
  51                 (t
  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)))))))
  56   control-flag)
  57
  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)
  61
  62 ;; Convert Hiragana <-> Katakana in the current translation region.
  63 (defun quail-japanese-toggle-kana ()
  64   (interactive)
  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)))))
  77
  78 ;; Convert Hiragana in the current translation region to Kanji by KKC
  79 ;; (Kana Kanji Converter) utility.
  80 (defun quail-japanese-kanji-kkc ()
  81   (interactive)
  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.
  89       (goto-char to)
  90       (delete-char -1)
  91       (insert ?\e$B$s\e(B))
  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))))
  98
  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))
 103
 104 (defvar quail-japanese-switch-table
 105   '((?z . "japanese-zenkaku")
 106     (?k . "japanese-hankaku-kana")
 107     (?h . "japanese")
 108     (?q . ("japanese-ascii"))))
 109
 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)
 113
 114 (defun quail-japanese-switch-package (key idx)
 115   (quail-delete-region)
 116   (setq quail-current-str nil
 117         quail-converting nil
 118         quail-conversion-str "")
 119   (let ((pkg (cdr (assq (aref key (1- idx)) quail-japanese-switch-table))))
 120     (if (null pkg)
 121         (quail-error "No package to be switched")
 122       (if (stringp pkg)
 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))
 130
 131 ;; \e$B%m!<%^;zF~NO5Z$S2>L>4A;zJQ49$K$h$kF|K\8lF~NO%a%=%C%I\e(B
 132 ;;
 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
 136 ;;
 137 ;; \e$B!V%m!<%^;z2>L>JQ49!W\e(B
 138 ;;
 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
 143 ;;
 144 ;; \e$B$5$i$K0J2<$N%-!<$GFCJL$J=hM}$r9T$&!#\e(B
 145 ;;
 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
 152 ;;
 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
 156 ;;
 157 ;; `japanese-zenkaku' \e$BF~NO%a%=%C%I$OA43Q1Q?t;z$rF~NO$9$k$N$K;H$&!#\e(B
 158 ;;
 159 ;; \e$B0J2<$K!V%m!<%^;z2>L>JQ49!W%9%F!<%8$G$N%-!<%7!<%1%s%9$r5s$2$k!#\e(B
 160 ;;
 161 ;; [omitted]
 162 ;;
 163 ;; \e$B!V2>L>4A;zJQ49!W\e(B
 164 ;;
 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
 168 ;;
 169 ;; SPC, C-n     kkc-next
 170 ;;      \e$B<!$NJQ498uJd$rI=<(\e(B
 171 ;;      kkc-show-conversion-list-count \e$B0J>eB3$1$FBG$F$P!"JQ498uJd%j%9\e(B
 172 ;;      \e$B%H$r%(%3!<%(%j%"$KI=<(\e(B
 173 ;; C-p          kkc-prev
 174 ;;      \e$BA0$NJQ498uJd$rI=<(\e(B
 175 ;;      kkc-show-conversion-list-count \e$B0J>eB3$1$FBG$F$P!"JQ498uJd%j%9\e(B
 176 ;;      \e$B%H$r%(%3!<%(%j%"$KI=<(\e(B
 177 ;; l            kkc-show-conversion-list-or-next-group
 178 ;;      \e$B:G9b#1#08D$^$G$NJQ498uJd$r%(%3!<%(%j%"$KI=<(!#\e(B
 179 ;;      \e$BB3$1$FBG$?$l$l$P!"<!$N#1#08uJd$rI=<(!#\e(B
 180 ;; L            kkc-show-conversion-list-or-prev-group
 181 ;;      \e$B:G9b#1#08D$^$G$NJQ498uJd$r%(%3!<%(%j%"$KI=<(!#\e(B
 182 ;;      \e$BB3$1$FBG$?$l$l$P!"A0$N#1#08uJd$rI=<(!#\e(B
 183 ;; 0..9         kkc-select-from-list
 184 ;;      \e$BBG$?$l$??t;z$NJQ498uJd$rA*Br\e(B
 185 ;; H            kkc-hiragana
 186 ;;      \e$BCmL\J8@a$rJ?2>L>$KJQ49\e(B
 187 ;; K            kkc-katakana
 188 ;;      \e$BCmL\J8@a$rJR2>L>$KJQ49\e(B
 189 ;; C-o          kkc-longer
 190 ;;      \e$BCmL\J8@a$r8e$m$K0lJ8;z?-$P$9\e(B
 191 ;; C-i          kkc-shorter
 192 ;;      \e$BCmL\J8@a$r8e$m$+$i0lJ8;z=L$a$k\e(B
 193 ;; C-f          kkc-next-phrase
 194 ;;      \e$BCmL\J8@a$r3NDj$5$;$k!#$b$7;D$j$NF~NO$,$^$@$"$l$P!":G=i$NJ8@a$r\e(B
 195 ;;      \e$BA*Br$7!"$=$l$rCmL\J8@a$H$7!"$=$N:G=i$NJQ498uJd$rI=<($9$k!#\e(B
 196 ;; DEL, C-c     kkc-cancel
 197 ;;      \e$B2>L>4A;zJQ49$r%-%c%s%;%k$7!"%m!<%^;z2>L>JQ49$N%9%F!<%8$KLa$k!#\e(B
 198 ;; return               kkc-terminate
 199 ;;      \e$BA4J8@a$r3NDj$5$;$k!#\e(B
 200 ;; C-SPC, C-@   kkc-first-char-only
 201 ;;      \e$B:G=i$NJ8;z$r3NDj$5$;!";D$j$O:o=|$9$k!#\e(B
 202 ;; C-h          kkc-help
 203 ;;      \e$B$3$l$i$N%-!<%P%$%s%I$N%j%9%H$rI=<($9$k!#$"\e(B
 204
 205 (quail-define-package
 206  "japanese" "Japanese" "A\e$B$"\e(B"
 207  nil
 208  "Japanese input method using Roman transliteration and Kana-Kanji conversion.
 209
 210 When you use this input method, text entry proceeds in two stages:
 211 Roman-Kana transliteration and Kana-Kanji conversion.  When you start
 212 to enter text, you are in the first stage, Roman-Kana transliteration.
 213 Type SPC to proceed to the next stage, Kana-Kanji conversion.
 214
 215 :: Roman-Kana transliteration ::
 216
 217 You can input any Hiragana character as a sequence of lower-case
 218 letters, Japanese punctuation characters by typing punctuation keys,
 219 Japanese symbols by typing `z' followed by another key.  See below for
 220 a list of all available sequences.  The characters you input are
 221 underlined.
 222
 223 In addition, the following keys provide special effects:
 224
 225 K       Change Hiragana to Katakana or Katakana to Hiragana.
 226 qq      Toggle between this input method and the `japanese-ascii' input method.
 227 qz      Shift to the `japanese-zenkaku' input method.
 228         Typing \"qh\" will put you back to this input method.
 229 RET     Accept the current character sequence.
 230 SPC     Proceed to the next stage, Kana-Kanji conversion.
 231
 232 The `japanese-ascii' input method is used to enter ASCII characters.
 233 This is almost the same as turning off the input method.  The only
 234 difference is that typing `qq' will put you back into the Japanese
 235 input method.
 236
 237 The `japanese-zenkaku' input methods is used to enter full width
 238 JISX0208 characters corresponding to typed ASCII characters.
 239
 240 Here's a list of key sequences for Roman-Kana transliteration.
 241
 242 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
 243 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
 244 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
 245 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
 246 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
 247 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
 248 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
 249 ya \e$B$d\e(B       yu \e$B$f\e(B       yo \e$B$h\e(B
 250 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
 251 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
 252 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
 253
 254 kya \e$B$-$c\e(B kyu \e$B$-$e\e(B kye \e$B$-$'\e(B kyo \e$B$-$g\e(B
 255 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
 256 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
 257 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
 258 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
 259 mya \e$B$_$c\e(B myu \e$B$_$e\e(B mye \e$B$_$'\e(B myo \e$B$_$g\e(B
 260 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
 261 gya \e$B$.$c\e(B gyu \e$B$.$e\e(B gye \e$B$.$'\e(B gyo \e$B$.$g\e(B
 262 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
 263 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
 264 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
 265
 266 kwa \e$B$/$n\e(B kwi \e$B$/$#\e(B kwe \e$B$/$'\e(B kwo \e$B$/$)\e(B
 267 tsa \e$B$D$!\e(B tsi \e$B$D$#\e(B tse \e$B$D$'\e(B tso \e$B$D$)\e(B
 268 fa  \e$B$U$!\e(B fi  \e$B$U$#\e(B fe  \e$B$U$'\e(B fo  \e$B$U$)\e(B
 269 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
 270 dyi \e$B$G$#\e(B dyu \e$B$I$%\e(B dye \e$B$G$'\e(B dyo \e$B$I$)\e(B
 271
 272 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
 273 xwi \e$B$&$#\e(B xwe \e$B$&$'\e(B xwo \e$B$&$)\e(B ye  \e$B$$$'\e(B
 274
 275 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
 276
 277 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
 278 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
 279
 280 Digists and punctuations:
 281
 282 key:  1 2 3 4 5 6 7 8 9 0 - = \\ ` ! @ # $ % ^ & * ( ) _ + | ~
 283 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
 284
 285 key:  [ ] { } ; ' : \" , . / < > ?
 286 char: \e$B!V!W!P!Q!(!G!'!I!"!#!?!c!d!)\e(B
 287
 288 Symbols (`z' followed by these keys):
 289
 290 Key:  1 2 3 4 5 6 7 8 9 0 - = \\ ` ! @ # $ % ^ & * ( ) _ + | ~
 291 char: \e$B!{"&"$""!~!y!}!q!i!j!A!b!@!-!|"'"%"#"!!z!r!_!Z![!h!^!B!/\e(B
 292
 293 Key:  [ ] { } ; ' : \" , . / < > ?
 294 char: \e$B!X!Y!L!M!+!F!,!H!E!D!&!e!f!g\e(B
 295
 296 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
 297 char: \e$B!k!;!5!7!>"+"-","*!m!l")!T!9!3!:"(!U"+!n!6"*!="."-",!R!8!4!x!`!S\e(B
 298
 299 Key:  x   X
 300 str:  :-  :-)
 301
 302 :: Kana-Kanji conversion ::
 303
 304 You can convert the current Japanese characters (underlined) to
 305 Kana-Kanji mixed text.  In this stage, the converted text is divided
 306 into two parts, the current phrase (highlighted) and the remaining
 307 input (underlined).  The following commands can be used on the
 308 current phrase.
 309
 310 SPC, C-n        kkc-next
 311         Show the next candidate for the current phrase.
 312         If successively typed `kkc-show-conversion-list-count' times,
 313         conversion candidates are shown in the echo area.
 314 C-p             kkc-prev
 315         Show the previous candidate for the current phrase.
 316         If successively typed `kkc-show-conversion-list-count' times,
 317         conversion candidates are shown in the echo area.
 318 l               kkc-show-conversion-list-or-next-group
 319         Show at most 10 candidates for the current phrase in echo area.
 320         If typed repeatedly, show the next 10 candidates.
 321 L               kkc-show-conversion-list-or-prev-group
 322         Show at most 10 candidates for the current phrase in echo area.
 323         If typed repeatedly, show the previous 10 candidates.
 324 0..9            kkc-select-from-list
 325         Select a candidate corresponding to the typed number.
 326 H               kkc-hiragana
 327         Convert the current phrase to Hiragana
 328 K               kkc-katakana
 329         Convert the current phrase to Katakana
 330 C-o             kkc-longer
 331         Extend the current phrase; pull in the first character of
 332         the remaining input.
 333 C-i             kkc-shorter
 334         Contract the current phrase; drop its last character
 335         back into the remaining input.
 336 C-f             kkc-next-phrase
 337         Accept the current phrase.  If there remains input, select
 338         the first phrase as the current one, and show the first
 339         candidate for the conversion.
 340 DEL, C-c        kkc-cancel
 341         Cancel the conversion, shift back to the Roman-Kana
 342         transliteration.
 343 return          kkc-terminate
 344         Accept the whole conversion.
 345 C-SPC, C-@      kkc-first-char-only
 346         Accept the first character of the current conversion,
 347         delete the remaining input.
 348 C-h             kkc-help
 349         List these key bindings.
 350 "
 351  nil t t nil nil nil nil nil
 352  'quail-japanese-update-translation
 353  '(("K" . quail-japanese-toggle-kana)
 354    (" " . quail-japanese-kanji-kkc)
 355    ("\C-m" . quail-no-conversion)
 356    ([return] . quail-no-conversion))
 357  )
 358
 359 (quail-define-rules
 360
 361 ( "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")
 362 ("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")
 363 ("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")
 364 ("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")
 365 ("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")
 366 ("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")
 367 ("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")
 368 ("ya" "\e$B$d\e(B")             ("yu" "\e$B$f\e(B")             ("yo" "\e$B$h\e(B")
 369 ("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")
 370 ("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")
 371 ("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")
 372 ("n'" "\e$B$s\e(B")
 373 ("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")
 374 ("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")
 375 ("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")
 376 ("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")
 377 ("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")
 378
 379 ("kya" ["\e$B$-$c\e(B"]) ("kyu" ["\e$B$-$e\e(B"]) ("kye" ["\e$B$-$'\e(B"]) ("kyo" ["\e$B$-$g\e(B"])
 380 ("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"])
 381 ("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"])
 382 ("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"])
 383 ("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"])
 384 ("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"])
 385 ("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"])
 386 ("mya" ["\e$B$_$c\e(B"]) ("myu" ["\e$B$_$e\e(B"]) ("mye" ["\e$B$_$'\e(B"]) ("myo" ["\e$B$_$g\e(B"])
 387 ("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"])
 388 ("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"])
 389 ("gya" ["\e$B$.$c\e(B"]) ("gyu" ["\e$B$.$e\e(B"]) ("gye" ["\e$B$.$'\e(B"]) ("gyo" ["\e$B$.$g\e(B"])
 390 ("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"])
 391 ("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"])
 392 ( "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"])
 393 ("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"])
 394 ("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"])
 395
 396 ("kwa" ["\e$B$/$n\e(B"]) ("kwi" ["\e$B$/$#\e(B"]) ("kwe" ["\e$B$/$'\e(B"]) ("kwo" ["\e$B$/$)\e(B"])
 397 ("tsa" ["\e$B$D$!\e(B"]) ("tsi" ["\e$B$D$#\e(B"]) ("tse" ["\e$B$D$'\e(B"]) ("tso" ["\e$B$D$)\e(B"])
 398 ( "fa" ["\e$B$U$!\e(B"]) ( "fi" ["\e$B$U$#\e(B"]) ( "fe" ["\e$B$U$'\e(B"]) ( "fo" ["\e$B$U$)\e(B"])
 399 ("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"])
 400
 401 ("dyi" ["\e$B$G$#\e(B"]) ("dyu" ["\e$B$I$%\e(B"]) ("dye" ["\e$B$G$'\e(B"]) ("dyo" ["\e$B$I$)\e(B"])
 402 ("xwi" ["\e$B$&$#\e(B"])                  ("xwe" ["\e$B$&$'\e(B"]) ("xwo" ["\e$B$&$)\e(B"])
 403
 404 ("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")
 405 ("fu"  "\e$B$U\e(B")
 406 ("ye" ["\e$B$$$'\e(B"])
 407
 408 ("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"])
 409
 410 ("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")
 411 ("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")
 412 ("xka" "\e$B%u\e(B") ("xke" "\e$B%v\e(B")
 413
 414 ("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")
 415 ("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")
 416
 417 ("!" "\e$B!*\e(B") ("@" "\e$B!w\e(B") ("#" "\e$B!t\e(B") ("$" "\e$B!p\e(B") ("%" "\e$B!s\e(B")
 418 ("^" "\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")
 419 ("-" "\e$B!<\e(B") ("=" "\e$B!a\e(B") ("`" "\e$B!.\e(B") ("\\" "\e$B!o\e(B") ("|" "\e$B!C\e(B")
 420 ("_" "\e$B!2\e(B") ("+" "\e$B!\\e(B") ("~" "\e$B!1\e(B") ("[" "\e$B!V\e(B") ("]" "\e$B!W\e(B")
 421 ("{" "\e$B!P\e(B") ("}" "\e$B!Q\e(B") (":" "\e$B!'\e(B") (";" "\e$B!(\e(B") ("\""  "\e$B!I\e(B")
 422 ("'" "\e$B!G\e(B") ("." "\e$B!#\e(B") ("," "\e$B!"\e(B") ("<" "\e$B!c\e(B") (">" "\e$B!d\e(B")
 423 ("?" "\e$B!)\e(B") ("/" "\e$B!?\e(B")
 424
 425 ("z1" "\e$B!{\e(B") ("z!" "\e$B!|\e(B")
 426 ("z2" "\e$B"&\e(B") ("z@" "\e$B"'\e(B")
 427 ("z3" "\e$B"$\e(B") ("z#" "\e$B"%\e(B")
 428 ("z4" "\e$B""\e(B") ("z$" "\e$B"#\e(B")
 429 ("z5" "\e$B!~\e(B") ("z%" "\e$B"!\e(B")
 430 ("z6" "\e$B!y\e(B") ("z^" "\e$B!z\e(B")
 431 ("z7" "\e$B!}\e(B") ("z&" "\e$B!r\e(B")
 432 ("z8" "\e$B!q\e(B") ("z*" "\e$B!_\e(B")
 433 ("z9" "\e$B!i\e(B") ("z(" "\e$B!Z\e(B")
 434 ("z0" "\e$B!j\e(B") ("z)" "\e$B![\e(B")
 435 ("z-" "\e$B!A\e(B") ("z_" "\e$B!h\e(B")
 436 ("z=" "\e$B!b\e(B") ("z+" "\e$B!^\e(B")
 437 ("z\\" "\e$B!@\e(B") ("z|" "\e$B!B\e(B")
 438 ("z`" "\e$B!-\e(B") ("z~" "\e$B!/\e(B")
 439
 440 ("zq" "\e$B!T\e(B") ("zQ" "\e$B!R\e(B")
 441 ("zw" "\e$B!U\e(B") ("zW" "\e$B!S\e(B")
 442 ("zr" "\e$B!9\e(B") ("zR" "\e$B!8\e(B")
 443 ("zt" "\e$B!:\e(B") ("zT" "\e$B!x\e(B")
 444 ("zp" "\e$B")\e(B") ("zP" "\e$B",\e(B")
 445 ("z[" "\e$B!X\e(B") ("z{" "\e$B!L\e(B")
 446 ("z]" "\e$B!Y\e(B") ("z}" "\e$B!M\e(B")
 447
 448 ("zs" "\e$B!3\e(B") ("zS" "\e$B!4\e(B")
 449 ("zd" "\e$B!5\e(B") ("zD" "\e$B!6\e(B")
 450 ("zf" "\e$B!7\e(B") ("zF" "\e$B"*\e(B")
 451 ("zg" "\e$B!>\e(B") ("zG" "\e$B!=\e(B")
 452 ("zh" "\e$B"+\e(B")
 453 ("zj" "\e$B"-\e(B")
 454 ("zk" "\e$B",\e(B")
 455 ("zl" "\e$B"*\e(B")
 456 ("z;" "\e$B!+\e(B") ("z:" "\e$B!,\e(B")
 457 ("z\'" "\e$B!F\e(B") ("z\"" "\e$B!H\e(B")
 458
 459 ("zx" [":-"]) ("zX" [":-)"])
 460 ("zc" "\e$B!;\e(B") ("zC" "\e$B!n\e(B")
 461 ("zv" "\e$B"(\e(B") ("zV" "\e$B!`\e(B")
 462 ("zb" "\e$B!k\e(B") ("zB" "\e$B"+\e(B")
 463 ("zn" "\e$B!l\e(B") ("zN" "\e$B"-\e(B")
 464 ("zm" "\e$B!m\e(B") ("zM" "\e$B".\e(B")
 465 ("z," "\e$B!E\e(B") ("z<" "\e$B!e\e(B")
 466 ("z." "\e$B!D\e(B") ("z>" "\e$B!f\e(B")
 467 ("z/" "\e$B!&\e(B") ("z?" "\e$B!g\e(B")
 468
 469 ("\\\\" quail-japanese-self-insert-and-switch-to-alpha)
 470 ("{{" quail-japanese-self-insert-and-switch-to-alpha)
 471 ("}}" quail-japanese-self-insert-and-switch-to-alpha)
 472
 473 ("qq" quail-japanese-switch-package)
 474 ("qz" quail-japanese-switch-package)
 475
 476 )
 477
 478 (quail-define-package
 479  "japanese-ascii" "Japanese" "Aa"
 480  nil
 481  "Temporary ASCII input mode while using Quail package `japanese'
 482 Type \"qq\" to go back to previous package."
 483  nil t t)
 484
 485 (quail-define-rules ("qq" quail-japanese-switch-package))
 486
 487 (quail-define-package
 488  "japanese-zenkaku" "Japanese" "\e$B#A\e(B"
 489  nil
 490  "Japanese zenkaku alpha numeric character input method
 491 ---- Special key bindings ----
 492 qq:     toggle between `japanese-zenkaku' and `japanese-ascii'
 493 qh:     use `japanese' package, \"qz\" puts you back to `japanese-zenkaku'
 494 "
 495  nil t t)
 496
 497 (quail-define-rules
 498
 499 (" " "\e$B!!\e(B") ("!" "\e$B!*\e(B") ("\"" "\e$B!m\e(B") ("#" "\e$B!t\e(B")
 500 ("$" "\e$B!p\e(B") ("%" "\e$B!s\e(B") ("&" "\e$B!u\e(B") ("'" "\e$B!l\e(B")
 501 ("(" "\e$B!J\e(B") (")" "\e$B!K\e(B") ("*" "\e$B!v\e(B") ("+" "\e$B!\\e(B")
 502 ("," "\e$B!$\e(B") ("-" "\e$B!]\e(B") ("." "\e$B!%\e(B") ("/" "\e$B!?\e(B")
 503 ("0" "\e$B#0\e(B") ("1" "\e$B#1\e(B") ("2" "\e$B#2\e(B") ("3" "\e$B#3\e(B")
 504 ("4" "\e$B#4\e(B") ("5" "\e$B#5\e(B") ("6" "\e$B#6\e(B") ("7" "\e$B#7\e(B")
 505 ("8" "\e$B#8\e(B") ("9" "\e$B#9\e(B") (":" "\e$B!'\e(B") (";" "\e$B!(\e(B")
 506 ("<" "\e$B!c\e(B") ("=" "\e$B!a\e(B") (">" "\e$B!d\e(B") ("?" "\e$B!)\e(B")
 507 ("@" "\e$B!w\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!N\e(B")
 514 ("\\" "\e$B!o\e(B") ("]" "\e$B!O\e(B") ("^" "\e$B!0\e(B") ("_" "\e$B!2\e(B")
 515 ("`" "\e$B!F\e(B") ("a" "\e$B#a\e(B") ("b" "\e$B#b\e(B") ("c" "\e$B#c\e(B")
 516 ("d" "\e$B#d\e(B") ("e" "\e$B#e\e(B") ("f" "\e$B#f\e(B") ("g" "\e$B#g\e(B")
 517 ("h" "\e$B#h\e(B") ("i" "\e$B#i\e(B") ("j" "\e$B#j\e(B") ("k" "\e$B#k\e(B")
 518 ("l" "\e$B#l\e(B") ("m" "\e$B#m\e(B") ("n" "\e$B#n\e(B") ("o" "\e$B#o\e(B")
 519 ("p" "\e$B#p\e(B") ("q" "\e$B#q\e(B") ("r" "\e$B#r\e(B") ("s" "\e$B#s\e(B")
 520 ("t" "\e$B#t\e(B") ("u" "\e$B#u\e(B") ("v" "\e$B#v\e(B") ("w" "\e$B#w\e(B")
 521 ("x" "\e$B#x\e(B") ("y" "\e$B#y\e(B") ("z" "\e$B#z\e(B") ("{" "\e$B!P\e(B")
 522 ("|" "\e$B!C\e(B") ("}" "\e$B!Q\e(B") ("~" "\e$B!A\e(B")
 523
 524 ("qq" quail-japanese-switch-package)
 525 ("qh" quail-japanese-switch-package)
 526 )
 527
 528 (defun quail-japanese-hankaku-update-translation (control-flag)
 529   (setq control-flag
 530         (quail-japanese-update-translation control-flag))
 531   (if (or (and (stringp quail-current-str)
 532                (> (length quail-current-str) 0))
 533           (integerp quail-current-str))
 534       (setq quail-current-str (japanese-hankaku quail-current-str)))
 535   control-flag)
 536
 537 (quail-define-package
 538  "japanese-hankaku-kana"
 539  "Japanese" "\e(I1\e(B"
 540  nil
 541  "Japanese hankaku katakana input method by Roman transliteration
 542 ---- Special key bindings ----
 543 qq:     toggle between `japanese-hankaku-kana' and `japanese-ascii'
 544 "
 545  nil t t nil nil nil nil nil
 546  'quail-japanese-hankaku-update-translation)
 547
 548 ;; Use the same map as that of `japanese'.
 549 (setcar (cdr (cdr quail-current-package))
 550         (nth 2 (assoc "japanese" quail-package-alist)))
 551
 552 (quail-define-package
 553  "japanese-hiragana" "Japanese" "\e$B$"\e(B"
 554  nil
 555  "Japanese hiragana input method by Roman transliteration"
 556  nil t t nil nil nil nil nil
 557  'quail-japanese-update-translation)
 558
 559 ;; Use the same map as that of `japanese'.
 560 (setcar (cdr (cdr quail-current-package))
 561         (nth 2 (assoc "japanese" quail-package-alist)))
 562
 563 ;; Update Quail translation region while converting Hiragana to Katakana.
 564 (defun quail-japanese-katakana-update-translation (control-flag)
 565   (setq control-flag
 566         (quail-japanese-update-translation control-flag))
 567   (if (or (and (stringp quail-current-str)
 568                (> (length quail-current-str) 0))
 569           (integerp quail-current-str))
 570       (setq quail-current-str (japanese-katakana quail-current-str)))
 571   control-flag)
 572
 573 (quail-define-package
 574  "japanese-katakana" "Japanese" "\e$B%"\e(B"
 575  nil
 576  "Japanese katakana input method by Roman transliteration"
 577  nil t t nil nil nil nil nil
 578  'quail-japanese-katakana-update-translation)
 579
 580 ;; Use the same map as that of `japanese'.
 581 (setcar (cdr (cdr quail-current-package))
 582         (nth 2 (assoc "japanese" quail-package-alist)))