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 ;; Convert Hiragana <-> Katakana in the current translation region.
  59 (defun quail-japanese-toggle-kana ()
  60   (interactive)
  61   (setq quail-translating nil)
  62   (let ((start (overlay-start quail-conv-overlay))
  63         (end (overlay-end quail-conv-overlay)))
  64     (save-excursion
  65       (goto-char start)
  66       (if (re-search-forward "\\cH" end t)
  67           (japanese-katakana-region start end)
  68         (japanese-hiragana-region start end)))
  69     (setq quail-conversion-str
  70           (buffer-substring (overlay-start quail-conv-overlay)
  71                             (overlay-end quail-conv-overlay)))))
  72
  73 ;; Convert Hiragana in the current translation region to Kanji by KKC
  74 ;; (Kana Kanji Converter) utility.
  75 (defun quail-japanese-kanji-kkc ()
  76   (interactive)
  77   (when (= (char-before (overlay-end quail-conv-overlay)) ?n)
  78     ;; The last char is `n'.  We had better convert it to `\e$B$s\e(B'
  79     ;; before kana-kanji conversion.
  80     (goto-char (overlay-end quail-conv-overlay))
  81     (delete-char -1)
  82     (insert ?\e$B$s\e(B))
  83   (let* ((from (copy-marker (overlay-start quail-conv-overlay)))
  84          (len (- (overlay-end quail-conv-overlay) from)))
  85     (quail-delete-overlays)
  86     (setq quail-current-str nil)
  87     (unwind-protect
  88         (let ((result (kkc-region from (+ from len))))
  89           (move-overlay quail-conv-overlay from (point))
  90           (setq quail-conversion-str (buffer-substring from (point)))
  91           (if (= (+ from result) (point))
  92               (setq quail-converting nil))
  93           (setq quail-translating nil))
  94       (set-marker from nil))))
  95
  96 (defun quail-japanese-self-insert-and-switch-to-alpha (key idx)
  97   (quail-delete-region)
  98   (setq unread-command-events (list (aref key (1- idx))))
  99   (quail-japanese-switch-package "q" 1))
 100
 101 (defvar quail-japanese-switch-table
 102   '((?z . "japanese-zenkaku")
 103     (?k . "japanese-hankaku-kana")
 104     (?h . "japanese")
 105     (?q . ("japanese-ascii"))))
 106
 107 (defvar quail-japanese-package-saved nil)
 108 (make-variable-buffer-local 'quail-japanese-package-saved)
 109 (put 'quail-japanese-package-saved 'permanent-local t)
 110
 111 (defun quail-japanese-switch-package (key idx)
 112   (quail-delete-region)
 113   (setq quail-current-str nil
 114         quail-converting nil
 115         quail-conversion-str "")
 116   (let ((pkg (cdr (assq (aref key (1- idx)) quail-japanese-switch-table))))
 117     (if (null pkg)
 118         (quail-error "No package to be switched")
 119       (if (stringp pkg)
 120           (activate-input-method pkg)
 121         (if (string= (car pkg) current-input-method)
 122             (if quail-japanese-package-saved
 123                 (activate-input-method quail-japanese-package-saved))
 124           (setq quail-japanese-package-saved current-input-method)
 125           (activate-input-method (car pkg))))))
 126   (throw 'quail-tag nil))
 127
 128 (defvar quail-japanese-transliteration-rules
 129   '(( "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")
 130     ("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")
 131     ("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")
 132     ("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")
 133     ("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")
 134     ("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")
 135     ("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")
 136     ("ya" "\e$B$d\e(B")             ("yu" "\e$B$f\e(B")             ("yo" "\e$B$h\e(B")
 137     ("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")
 138     ("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")
 139     ("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")
 140     ("n'" "\e$B$s\e(B")
 141     ("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")
 142     ("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")
 143     ("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")
 144     ("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")
 145     ("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")
 146
 147     ("kya" ["\e$B$-$c\e(B"]) ("kyu" ["\e$B$-$e\e(B"]) ("kye" ["\e$B$-$'\e(B"]) ("kyo" ["\e$B$-$g\e(B"])
 148     ("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"])
 149     ("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"])
 150     ("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"])
 151     ("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"])
 152     ("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"])
 153     ("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"])
 154     ("mya" ["\e$B$_$c\e(B"]) ("myu" ["\e$B$_$e\e(B"]) ("mye" ["\e$B$_$'\e(B"]) ("myo" ["\e$B$_$g\e(B"])
 155     ("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"])
 156     ("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"])
 157     ("gya" ["\e$B$.$c\e(B"]) ("gyu" ["\e$B$.$e\e(B"]) ("gye" ["\e$B$.$'\e(B"]) ("gyo" ["\e$B$.$g\e(B"])
 158     ("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"])
 159     ("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"])
 160     ( "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"])
 161     ("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"])
 162     ("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"])
 163
 164     ("kwa" ["\e$B$/$n\e(B"]) ("kwi" ["\e$B$/$#\e(B"]) ("kwe" ["\e$B$/$'\e(B"]) ("kwo" ["\e$B$/$)\e(B"])
 165     ("tsa" ["\e$B$D$!\e(B"]) ("tsi" ["\e$B$D$#\e(B"]) ("tse" ["\e$B$D$'\e(B"]) ("tso" ["\e$B$D$)\e(B"])
 166     ( "fa" ["\e$B$U$!\e(B"]) ( "fi" ["\e$B$U$#\e(B"]) ( "fe" ["\e$B$U$'\e(B"]) ( "fo" ["\e$B$U$)\e(B"])
 167     ("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"])
 168
 169     ("dyi" ["\e$B$G$#\e(B"]) ("dyu" ["\e$B$I$%\e(B"]) ("dye" ["\e$B$G$'\e(B"]) ("dyo" ["\e$B$I$)\e(B"])
 170     ("xwi" ["\e$B$&$#\e(B"])                  ("xwe" ["\e$B$&$'\e(B"]) ("xwo" ["\e$B$&$)\e(B"])
 171
 172     ("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")
 173     ("fu"  "\e$B$U\e(B")
 174     ("ye" ["\e$B$$$'\e(B"])
 175
 176     ("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"])
 177
 178     ("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")
 179     ("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")
 180     ("xka" "\e$B%u\e(B") ("xke" "\e$B%v\e(B")
 181
 182     ("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")
 183     ("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")
 184
 185     ("!" "\e$B!*\e(B") ("@" "\e$B!w\e(B") ("#" "\e$B!t\e(B") ("$" "\e$B!p\e(B") ("%" "\e$B!s\e(B")
 186     ("^" "\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")
 187     ("-" "\e$B!<\e(B") ("=" "\e$B!a\e(B") ("`" "\e$B!.\e(B") ("\\" "\e$B!o\e(B") ("|" "\e$B!C\e(B")
 188     ("_" "\e$B!2\e(B") ("+" "\e$B!\\e(B") ("~" "\e$B!1\e(B") ("[" "\e$B!V\e(B") ("]" "\e$B!W\e(B")
 189     ("{" "\e$B!P\e(B") ("}" "\e$B!Q\e(B") (":" "\e$B!'\e(B") (";" "\e$B!(\e(B") ("\""  "\e$B!I\e(B")
 190     ("'" "\e$B!G\e(B") ("." "\e$B!#\e(B") ("," "\e$B!"\e(B") ("<" "\e$B!c\e(B") (">" "\e$B!d\e(B")
 191     ("?" "\e$B!)\e(B") ("/" "\e$B!?\e(B")
 192
 193     ("z1" "\e$B!{\e(B") ("z!" "\e$B!|\e(B")
 194     ("z2" "\e$B"&\e(B") ("z@" "\e$B"'\e(B")
 195     ("z3" "\e$B"$\e(B") ("z#" "\e$B"%\e(B")
 196     ("z4" "\e$B""\e(B") ("z$" "\e$B"#\e(B")
 197     ("z5" "\e$B!~\e(B") ("z%" "\e$B"!\e(B")
 198     ("z6" "\e$B!y\e(B") ("z^" "\e$B!z\e(B")
 199     ("z7" "\e$B!}\e(B") ("z&" "\e$B!r\e(B")
 200     ("z8" "\e$B!q\e(B") ("z*" "\e$B!_\e(B")
 201     ("z9" "\e$B!i\e(B") ("z(" "\e$B!Z\e(B")
 202     ("z0" "\e$B!j\e(B") ("z)" "\e$B![\e(B")
 203     ("z-" "\e$B!A\e(B") ("z_" "\e$B!h\e(B")
 204     ("z=" "\e$B!b\e(B") ("z+" "\e$B!^\e(B")
 205     ("z\\" "\e$B!@\e(B") ("z|" "\e$B!B\e(B")
 206     ("z`" "\e$B!-\e(B") ("z~" "\e$B!/\e(B")
 207
 208     ("zq" "\e$B!T\e(B") ("zQ" "\e$B!R\e(B")
 209     ("zw" "\e$B!U\e(B") ("zW" "\e$B!S\e(B")
 210     ("zr" "\e$B!9\e(B") ("zR" "\e$B!8\e(B")
 211     ("zt" "\e$B!:\e(B") ("zT" "\e$B!x\e(B")
 212     ("zp" "\e$B")\e(B") ("zP" "\e$B",\e(B")
 213     ("z[" "\e$B!X\e(B") ("z{" "\e$B!L\e(B")
 214     ("z]" "\e$B!Y\e(B") ("z}" "\e$B!M\e(B")
 215
 216     ("zs" "\e$B!3\e(B") ("zS" "\e$B!4\e(B")
 217     ("zd" "\e$B!5\e(B") ("zD" "\e$B!6\e(B")
 218     ("zf" "\e$B!7\e(B") ("zF" "\e$B"*\e(B")
 219     ("zg" "\e$B!>\e(B") ("zG" "\e$B!=\e(B")
 220     ("zh" "\e$B"+\e(B")
 221     ("zj" "\e$B"-\e(B")
 222     ("zk" "\e$B",\e(B")
 223     ("zl" "\e$B"*\e(B")
 224     ("z;" "\e$B!+\e(B") ("z:" "\e$B!,\e(B")
 225     ("z\'" "\e$B!F\e(B") ("z\"" "\e$B!H\e(B")
 226
 227     ("zx" [":-"]) ("zX" [":-)"])
 228     ("zc" "\e$B!;\e(B") ("zC" "\e$B!n\e(B")
 229     ("zv" "\e$B"(\e(B") ("zV" "\e$B!`\e(B")
 230     ("zb" "\e$B!k\e(B") ("zB" "\e$B"+\e(B")
 231     ("zn" "\e$B!l\e(B") ("zN" "\e$B"-\e(B")
 232     ("zm" "\e$B!m\e(B") ("zM" "\e$B".\e(B")
 233     ("z," "\e$B!E\e(B") ("z<" "\e$B!e\e(B")
 234     ("z." "\e$B!D\e(B") ("z>" "\e$B!f\e(B")
 235     ("z/" "\e$B!&\e(B") ("z?" "\e$B!g\e(B")
 236
 237     ("\\\\" quail-japanese-self-insert-and-switch-to-alpha)
 238     ("{{" quail-japanese-self-insert-and-switch-to-alpha)
 239     ("}}" quail-japanese-self-insert-and-switch-to-alpha)
 240
 241     ("qq" quail-japanese-switch-package)
 242     ("qz" quail-japanese-switch-package)
 243     ))
 244
 245
 246 ;; \e$B%m!<%^;zF~NO5Z$S2>L>4A;zJQ49$K$h$kF|K\8lF~NO%a%=%C%I\e(B
 247 ;;
 248 ;; \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
 249 ;; \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
 250 ;; \e$B%Z!<%9%-!<$r2!$9$3$H$K$h$j!"<!$N%9%F!<%8!V2>L>4A;zJQ49!W$X?J$`!#\e(B
 251 ;;
 252 ;; \e$B!V%m!<%^;z2>L>JQ49!W\e(B
 253 ;;
 254 ;; \e$BJ?2>L>$O>.J8;z%-!<!JNs!K$rBG$D$3$H$K$h$jF~NO!#6gFIE@!"3g8LN`$OBP1~\e(B
 255 ;; \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
 256 ;; \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
 257 ;; \e$B%H%"%C%W$5$l$F$$$k!#F~NO$5$l$?J8;z$O2<@~$G<($5$l$k!#\e(B
 258 ;;
 259 ;; \e$B$5$i$K0J2<$N%-!<$GFCJL$J=hM}$r9T$&!#\e(B
 260 ;;
 261 ;; K    \e$BJ?2>L>$rJR2>L>$K!"$"$k$$$OJR2>L>$rJ?2>L>$KJQ49\e(B
 262 ;; 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
 263 ;; qz   `japanese-zenkaku' \e$BF~NO%a%=%C%I$K%7%U%H\e(B
 264 ;;      qh \e$B$HBG$F$P85$KLa$k\e(B
 265 ;; RET  \e$B8=:_$NF~NOJ8;zNs$r3NDj\e(B
 266 ;; SPC  \e$B2>L>4A;zJQ49$K?J$`\e(B
 267 ;;
 268 ;; `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
 269 ;; \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
 270 ;; \e$BBG$D$3$H$K$h$j!"\e(B`japanese' \e$BF~NO%a%=%C%I$KLa$l$kE@$G$"$k!#\e(B
 271 ;;
 272 ;; `japanese-zenkaku' \e$BF~NO%a%=%C%I$OA43Q1Q?t;z$rF~NO$9$k$N$K;H$&!#\e(B
 273 ;;
 274 ;; \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
 275 ;; \e$B$F$"$k!#\e(B
 276 ;;
 277 ;; \e$B!V2>L>4A;zJQ49!W\e(B
 278 ;;
 279 ;; \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
 280 ;; \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
 281 ;; \e$BJ,$1$i$l$k!#CmL\J8@a$KBP$7$F$O0J2<$N%3%^%s%I$,;H$($k!#\e(B
 282 ;;
 283 ;; SPC, C-n     kkc-next
 284 ;;      \e$B<!$NJQ498uJd$rI=<(\e(B
 285 ;;      kkc-show-conversion-list-count \e$B0J>eB3$1$FBG$F$P!"JQ498uJd%j%9\e(B
 286 ;;      \e$B%H$r%(%3!<%(%j%"$KI=<(\e(B
 287 ;; C-p          kkc-prev
 288 ;;      \e$BA0$NJQ498uJd$rI=<(\e(B
 289 ;;      kkc-show-conversion-list-count \e$B0J>eB3$1$FBG$F$P!"JQ498uJd%j%9\e(B
 290 ;;      \e$B%H$r%(%3!<%(%j%"$KI=<(\e(B
 291 ;; l            kkc-show-conversion-list-or-next-group
 292 ;;      \e$B:G9b#1#08D$^$G$NJQ498uJd$r%(%3!<%(%j%"$KI=<(!#\e(B
 293 ;;      \e$BB3$1$FBG$?$l$l$P!"<!$N#1#08uJd$rI=<(!#\e(B
 294 ;; L            kkc-show-conversion-list-or-prev-group
 295 ;;      \e$B:G9b#1#08D$^$G$NJQ498uJd$r%(%3!<%(%j%"$KI=<(!#\e(B
 296 ;;      \e$BB3$1$FBG$?$l$l$P!"A0$N#1#08uJd$rI=<(!#\e(B
 297 ;; 0..9         kkc-select-from-list
 298 ;;      \e$BBG$?$l$??t;z$NJQ498uJd$rA*Br\e(B
 299 ;; H            kkc-hiragana
 300 ;;      \e$BCmL\J8@a$rJ?2>L>$KJQ49\e(B
 301 ;; K            kkc-katakana
 302 ;;      \e$BCmL\J8@a$rJR2>L>$KJQ49\e(B
 303 ;; C-o          kkc-longer
 304 ;;      \e$BCmL\J8@a$r8e$m$K0lJ8;z?-$P$9\e(B
 305 ;; C-i          kkc-shorter
 306 ;;      \e$BCmL\J8@a$r8e$m$+$i0lJ8;z=L$a$k\e(B
 307 ;; C-f          kkc-next-phrase
 308 ;;      \e$BCmL\J8@a$r3NDj$5$;$k!#$b$7;D$j$NF~NO$,$^$@$"$l$P!":G=i$NJ8@a$r\e(B
 309 ;;      \e$BA*Br$7!"$=$l$rCmL\J8@a$H$7!"$=$N:G=i$NJQ498uJd$rI=<($9$k!#\e(B
 310 ;; DEL, C-c     kkc-cancel
 311 ;;      \e$B2>L>4A;zJQ49$r%-%c%s%;%k$7!"%m!<%^;z2>L>JQ49$N%9%F!<%8$KLa$k!#\e(B
 312 ;; return               kkc-terminate
 313 ;;      \e$BA4J8@a$r3NDj$5$;$k!#\e(B
 314 ;; C-SPC, C-@   kkc-first-char-only
 315 ;;      \e$B:G=i$NJ8;z$r3NDj$5$;!";D$j$O:o=|$9$k!#\e(B
 316 ;; C-h          kkc-help
 317 ;;      \e$B$3$l$i$N%-!<%P%$%s%I$N%j%9%H$rI=<($9$k!#$"\e(B
 318
 319 (quail-define-package
 320  "japanese" "Japanese" "A\e$B$"\e(B"
 321  nil
 322  "Japanese input method by Roman transliteration and Kana-Kanji conversion.
 323
 324 When you use this input method, text entry proceeds in two stages:
 325 Roman-Kana transliteration and Kana-Kanji conversion.  When you start
 326 to enter text, you are in the first stage, Roman-Kana transliteration.
 327 Type SPC to proceed to the next stage, Kana-Kanji conversion.
 328
 329 :: Roman-Kana transliteration ::
 330
 331 You can input any Hiragana character as a sequence of lower-case
 332 letters, Japanese punctuation characters by typing punctuation keys,
 333 Japanese symbols by typing `z' followed by another key.  See below for
 334 a list of all available sequences.  The characters you input are
 335 underlined.
 336
 337 In addition, the following keys provide special effects:
 338
 339 K       Change Hiragana to Katakana or Katakana to Hiragana.
 340 qq      Toggle between this input method and the input method `japanese-ascii'.
 341 qz      Shift to the input method `japanese-zenkaku'.
 342         Typing \"qh\" will put you back to this input method.
 343 RET     Accept the current character sequence.
 344 SPC     Proceed to the next stage, Kana-Kanji conversion.
 345
 346 The input method `japanese-ascii' is used to enter ASCII characters.
 347 This is almost the same as turning off the input method.  The only
 348 difference is that typing `qq' will put you back into the Japanese
 349 input method.
 350
 351 The input method `japanese-zenkaku' is used to enter full width
 352 JISX0208 characters corresponding to typed ASCII characters.
 353
 354 List of the all key sequences for Roman-Kana transliteration is shown
 355 at the tail.
 356
 357 :: Kana-Kanji conversion ::
 358
 359 You can convert the current Japanese characters (underlined) to
 360 Kana-Kanji mixed text.  In this stage, the converted text is divided
 361 into two parts, the current phrase (highlighted) and the remaining
 362 input (underlined).  The following commands can be used on the
 363 current phrase.
 364
 365 SPC, C-n        kkc-next
 366         Show the next candidate for the current phrase.
 367         If successively typed `kkc-show-conversion-list-count' times,
 368         conversion candidates are shown in the echo area.
 369 C-p             kkc-prev
 370         Show the previous candidate for the current phrase.
 371         If successively typed `kkc-show-conversion-list-count' times,
 372         conversion candidates are shown in the echo area.
 373 l               kkc-show-conversion-list-or-next-group
 374         Show at most 10 candidates for the current phrase in echo area.
 375         If typed repeatedly, show the next 10 candidates.
 376 L               kkc-show-conversion-list-or-prev-group
 377         Show at most 10 candidates for the current phrase in echo area.
 378         If typed repeatedly, show the previous 10 candidates.
 379 0..9            kkc-select-from-list
 380         Select a candidate corresponding to the typed number.
 381 H               kkc-hiragana
 382         Convert the current phrase to Hiragana
 383 K               kkc-katakana
 384         Convert the current phrase to Katakana
 385 C-o             kkc-longer
 386         Extend the current phrase; pull in the first character of
 387         the remaining input.
 388 C-i             kkc-shorter
 389         Contract the current phrase; drop its last character
 390         back into the remaining input.
 391 C-f             kkc-next-phrase
 392         Accept the current phrase.  If there remains input, select
 393         the first phrase as the current one, and show the first
 394         candidate for the conversion.
 395 DEL, C-c        kkc-cancel
 396         Cancel the conversion, shift back to the Roman-Kana
 397         transliteration.
 398 return          kkc-terminate
 399         Accept the whole conversion.
 400 C-SPC, C-@      kkc-first-char-only
 401         Accept the first character of the current conversion,
 402         delete the remaining input.
 403 C-h             kkc-help
 404         List these key bindings.
 405 "
 406  nil t t nil nil nil nil nil
 407  'quail-japanese-update-translation
 408  '(("K" . quail-japanese-toggle-kana)
 409    (" " . quail-japanese-kanji-kkc)
 410    ("\C-m" . quail-no-conversion)
 411    ([return] . quail-no-conversion))
 412  )
 413
 414 (dolist (elt quail-japanese-transliteration-rules)
 415   (quail-defrule (car elt) (nth 1 elt)))
 416
 417 (quail-define-package
 418  "japanese-ascii" "Japanese" "Aa"
 419  nil
 420  "Temporary ASCII input mode used within the input method `japanese'.
 421 Type \"qq\" to go back to previous input method."
 422  nil t t)
 423
 424 (quail-define-rules ("qq" quail-japanese-switch-package))
 425
 426 (quail-define-package
 427  "japanese-zenkaku" "Japanese" "\e$B#A\e(B"
 428  nil
 429  "Japanese zenkaku alpha numeric character input method.
 430 ---- Special key bindings ----
 431 qq:     toggle between this input method and the input method `japanese-ascii'.
 432 qh:     shift to the input method `japanese',
 433         typing \"qz\" puts you back to this input method.
 434 "
 435  nil t t)
 436
 437 (quail-define-rules
 438
 439 (" " "\e$B!!\e(B") ("!" "\e$B!*\e(B") ("\"" "\e$B!m\e(B") ("#" "\e$B!t\e(B")
 440 ("$" "\e$B!p\e(B") ("%" "\e$B!s\e(B") ("&" "\e$B!u\e(B") ("'" "\e$B!l\e(B")
 441 ("(" "\e$B!J\e(B") (")" "\e$B!K\e(B") ("*" "\e$B!v\e(B") ("+" "\e$B!\\e(B")
 442 ("," "\e$B!$\e(B") ("-" "\e$B!]\e(B") ("." "\e$B!%\e(B") ("/" "\e$B!?\e(B")
 443 ("0" "\e$B#0\e(B") ("1" "\e$B#1\e(B") ("2" "\e$B#2\e(B") ("3" "\e$B#3\e(B")
 444 ("4" "\e$B#4\e(B") ("5" "\e$B#5\e(B") ("6" "\e$B#6\e(B") ("7" "\e$B#7\e(B")
 445 ("8" "\e$B#8\e(B") ("9" "\e$B#9\e(B") (":" "\e$B!'\e(B") (";" "\e$B!(\e(B")
 446 ("<" "\e$B!c\e(B") ("=" "\e$B!a\e(B") (">" "\e$B!d\e(B") ("?" "\e$B!)\e(B")
 447 ("@" "\e$B!w\e(B") ("A" "\e$B#A\e(B") ("B" "\e$B#B\e(B") ("C" "\e$B#C\e(B")
 448 ("D" "\e$B#D\e(B") ("E" "\e$B#E\e(B") ("F" "\e$B#F\e(B") ("G" "\e$B#G\e(B")
 449 ("H" "\e$B#H\e(B") ("I" "\e$B#I\e(B") ("J" "\e$B#J\e(B") ("K" "\e$B#K\e(B")
 450 ("L" "\e$B#L\e(B") ("M" "\e$B#M\e(B") ("N" "\e$B#N\e(B") ("O" "\e$B#O\e(B")
 451 ("P" "\e$B#P\e(B") ("Q" "\e$B#Q\e(B") ("R" "\e$B#R\e(B") ("S" "\e$B#S\e(B")
 452 ("T" "\e$B#T\e(B") ("U" "\e$B#U\e(B") ("V" "\e$B#V\e(B") ("W" "\e$B#W\e(B")
 453 ("X" "\e$B#X\e(B") ("Y" "\e$B#Y\e(B") ("Z" "\e$B#Z\e(B") ("[" "\e$B!N\e(B")
 454 ("\\" "\e$B!o\e(B") ("]" "\e$B!O\e(B") ("^" "\e$B!0\e(B") ("_" "\e$B!2\e(B")
 455 ("`" "\e$B!F\e(B") ("a" "\e$B#a\e(B") ("b" "\e$B#b\e(B") ("c" "\e$B#c\e(B")
 456 ("d" "\e$B#d\e(B") ("e" "\e$B#e\e(B") ("f" "\e$B#f\e(B") ("g" "\e$B#g\e(B")
 457 ("h" "\e$B#h\e(B") ("i" "\e$B#i\e(B") ("j" "\e$B#j\e(B") ("k" "\e$B#k\e(B")
 458 ("l" "\e$B#l\e(B") ("m" "\e$B#m\e(B") ("n" "\e$B#n\e(B") ("o" "\e$B#o\e(B")
 459 ("p" "\e$B#p\e(B") ("q" "\e$B#q\e(B") ("r" "\e$B#r\e(B") ("s" "\e$B#s\e(B")
 460 ("t" "\e$B#t\e(B") ("u" "\e$B#u\e(B") ("v" "\e$B#v\e(B") ("w" "\e$B#w\e(B")
 461 ("x" "\e$B#x\e(B") ("y" "\e$B#y\e(B") ("z" "\e$B#z\e(B") ("{" "\e$B!P\e(B")
 462 ("|" "\e$B!C\e(B") ("}" "\e$B!Q\e(B") ("~" "\e$B!A\e(B")
 463
 464 ("qq" quail-japanese-switch-package)
 465 ("qh" quail-japanese-switch-package)
 466 )
 467
 468 (defun quail-japanese-hankaku-update-translation (control-flag)
 469   (setq control-flag
 470         (quail-japanese-update-translation control-flag))
 471   (if (or (and (stringp quail-current-str)
 472                (> (length quail-current-str) 0))
 473           (integerp quail-current-str))
 474       (setq quail-current-str (japanese-hankaku quail-current-str)))
 475   control-flag)
 476
 477 (quail-define-package
 478  "japanese-hankaku-kana"
 479  "Japanese" "\e(I1\e(B"
 480  nil
 481  "Japanese hankaku katakana input method by Roman transliteration.
 482 ---- Special key bindings ----
 483 qq:     toggle between this input method and the input method `japanese-ascii'.
 484 "
 485  nil t t nil nil nil nil nil
 486  'quail-japanese-hankaku-update-translation)
 487
 488 (dolist (elt quail-japanese-transliteration-rules)
 489   (quail-defrule (car elt)
 490                  (let ((trans (nth 1 elt)))
 491                    (when (or (stringp trans) (vectorp trans))
 492                      (let ((s (japanese-hankaku (if (stringp trans)
 493                                                     trans
 494                                                   (aref trans 0)))))
 495                        ;; If the result of the conversion is a string
 496                        ;; containing more than one character, make the
 497                        ;; result a vector, so that quail-defrule
 498                        ;; recognizes the whole string is the
 499                        ;; translation, instead of interpreting
 500                        ;; individual characters as alternative
 501                        ;; translations.
 502                        (if (and (stringp s) (> (length s) 1))
 503                            (setq trans (vector s))
 504                          (setq trans s))))
 505                    trans)))
 506
 507 (quail-define-package
 508  "japanese-hiragana" "Japanese" "\e$B$"\e(B"
 509  nil
 510  "Japanese hiragana input method by Roman transliteration."
 511  nil t t nil nil nil nil nil
 512  'quail-japanese-update-translation)
 513
 514 ;; Use the same map as that of `japanese'.
 515 (setcar (cdr (cdr quail-current-package))
 516         (nth 2 (assoc "japanese" quail-package-alist)))
 517
 518 ;; Update Quail translation region while converting Hiragana to Katakana.
 519 (defun quail-japanese-katakana-update-translation (control-flag)
 520   (setq control-flag
 521         (quail-japanese-update-translation control-flag))
 522   (if (or (and (stringp quail-current-str)
 523                (> (length quail-current-str) 0))
 524           (integerp quail-current-str))
 525       (setq quail-current-str (japanese-katakana quail-current-str)))
 526   control-flag)
 527
 528 (quail-define-package
 529  "japanese-katakana" "Japanese" "\e$B%"\e(B"
 530  nil
 531  "Japanese katakana input method by Roman transliteration."
 532  nil t t nil nil nil nil nil
 533  'quail-japanese-katakana-update-translation)
 534
 535 (dolist (elt quail-japanese-transliteration-rules)
 536   (quail-defrule (car elt)
 537                  (let ((trans (nth 1 elt)))
 538                    (cond ((stringp trans)
 539                           (japanese-katakana trans))
 540                          ((vectorp trans)
 541                           (vector (japanese-katakana (aref trans 0))))
 542                          (t trans)))))
 543