leim/quail/japanese.el

   1 ;;; japanese.el --- Quail package for inputting Japanese  -*-coding: iso-2022-7bit;-*-
   2
   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,
   6 ;;   2006, 2007
   7 ;;   National Institute of Advanced Industrial Science and Technology (AIST)
   8 ;;   Registration Number H14PRO021
   9
  10 ;; Keywords: multilingual, input method, Japanese
  11
  12 ;; This file is part of GNU Emacs.
  13
  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 3, or (at your option)
  17 ;; any later version.
  18
  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.
  23
  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.
  28
  29 ;;; Commentary:
  30
  31 ;;; Code:
  32
  33 (require 'quail)
  34 (require 'kkc)
  35
  36 (defvar quail-japanese-use-double-n nil
  37   "If non-nil, use type \"nn\" to insert \e$B$s\e(B.")
  38
  39 ;; Update Quail translation region while considering Japanese bizarre
  40 ;; translation rules.
  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)
  46               ""))
  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))
  57                 (t
  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)))))))
  62   control-flag)
  63
  64 ;; Convert Hiragana <-> Katakana in the current translation region.
  65 (defun quail-japanese-toggle-kana ()
  66   (interactive)
  67   (setq quail-translating nil)
  68   (let ((start (overlay-start quail-conv-overlay))
  69         (end (overlay-end quail-conv-overlay)))
  70     (save-excursion
  71       (goto-char start)
  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)))))
  78
  79 ;; Convert Hiragana in the current translation region to Kanji by KKC
  80 ;; (Kana Kanji Converter) utility.
  81 (defun quail-japanese-kanji-kkc ()
  82   (interactive)
  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)))
  87     (insert ?\e$B$s\e(B)
  88     (delete-char 1))
  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)
  93     (unwind-protect
  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))))
 101
 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))
 106
 107 (defvar quail-japanese-switch-table
 108   '((?z . "japanese-zenkaku")
 109     (?k . "japanese-hankaku-kana")
 110     (?h . "japanese")
 111     (?q . ("japanese-ascii"))))
 112
 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)
 116
 117 (defun quail-japanese-switch-package (key idx)
 118   (quail-delete-region)
 119   (setq quail-current-str nil
 120         quail-converting nil
 121         quail-conversion-str "")
 122   (let ((pkg (cdr (assq (aref key (1- idx)) quail-japanese-switch-table))))
 123     (if (null pkg)
 124         (quail-error "No package to be switched")
 125       (if (stringp pkg)
 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))
 133
 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")
 146     ("n'" "\e$B$s\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")
 152
 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"])
 169
 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"])
 174
 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"])
 177
 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")
 179     ("fu"  "\e$B$U\e(B")
 180     ("ye" ["\e$B$$$'\e(B"])
 181
 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"])
 183
 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")
 187
 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")
 190
 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")
 198
 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")
 213
 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")
 221
 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")
 226     ("zh" "\e$B"+\e(B")
 227     ("zj" "\e$B"-\e(B")
 228     ("zk" "\e$B",\e(B")
 229     ("zl" "\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")
 232
 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")
 242
 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)
 246
 247     ("qq" quail-japanese-switch-package)
 248     ("qz" quail-japanese-switch-package)
 249     ))
 250
 251
 252 ;; \e$B%m!<%^;zF~NO5Z$S2>L>4A;zJQ49$K$h$kF|K\8lF~NO%a%=%C%I\e(B
 253 ;;
 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
 257 ;;
 258 ;; \e$B!V%m!<%^;z2>L>JQ49!W\e(B
 259 ;;
 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
 264 ;;
 265 ;; \e$B$5$i$K0J2<$N%-!<$GFCJL$J=hM}$r9T$&!#\e(B
 266 ;;
 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
 273 ;;
 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
 277 ;;
 278 ;; `japanese-zenkaku' \e$BF~NO%a%=%C%I$OA43Q1Q?t;z$rF~NO$9$k$N$K;H$&!#\e(B
 279 ;;
 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
 281 ;; \e$B$F$"$k!#\e(B
 282 ;;
 283 ;; \e$B!V2>L>4A;zJQ49!W\e(B
 284 ;;
 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
 288 ;;
 289 ;; SPC, C-n     kkc-next
 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
 293 ;; C-p          kkc-prev
 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
 305 ;; H            kkc-hiragana
 306 ;;      \e$BCmL\J8@a$rJ?2>L>$KJQ49\e(B
 307 ;; K            kkc-katakana
 308 ;;      \e$BCmL\J8@a$rJR2>L>$KJQ49\e(B
 309 ;; C-o          kkc-longer
 310 ;;      \e$BCmL\J8@a$r8e$m$K0lJ8;z?-$P$9\e(B
 311 ;; C-i          kkc-shorter
 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
 322 ;; C-h          kkc-help
 323 ;;      \e$B$3$l$i$N%-!<%P%$%s%I$N%j%9%H$rI=<($9$k!#$"\e(B
 324
 325 (quail-define-package
 326  "japanese" "Japanese" "A\e$B$"\e(B"
 327  nil
 328  "Japanese input method by Roman transliteration and Kana-Kanji conversion.
 329
 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.
 334
 335 :: Roman-Kana transliteration ::
 336
 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
 341 underlined.
 342
 343 In addition, the following keys provide special effects:
 344
 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.
 351
 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
 355 input method.
 356
 357 The input method `japanese-zenkaku' is used to enter full width
 358 JISX0208 characters corresponding to typed ASCII characters.
 359
 360 List of the all key sequences for Roman-Kana transliteration is shown
 361 at the tail.
 362
 363 :: Kana-Kanji conversion ::
 364
 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
 369 current phrase.
 370
 371 SPC, C-n        kkc-next
 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.
 375 C-p             kkc-prev
 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.
 387 H               kkc-hiragana
 388         Convert the current phrase to Hiragana
 389 K               kkc-katakana
 390         Convert the current phrase to Katakana
 391 C-o             kkc-longer
 392         Extend the current phrase; pull in the first character of
 393         the remaining input.
 394 C-i             kkc-shorter
 395         Contract the current phrase; drop its last character
 396         back into the remaining input.
 397 C-f             kkc-next-phrase
 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.
 401 DEL, C-c        kkc-cancel
 402         Cancel the conversion, shift back to the Roman-Kana
 403         transliteration.
 404 return          kkc-terminate
 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.
 409 C-h             kkc-help
 410         List these key bindings.
 411 "
 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))
 418  )
 419
 420 (dolist (elt quail-japanese-transliteration-rules)
 421   (quail-defrule (car elt) (nth 1 elt)))
 422
 423 (quail-define-package
 424  "japanese-ascii" "Japanese" "Aa"
 425  nil
 426  "Temporary ASCII input mode used within the input method `japanese'.
 427 Type \"qq\" to go back to previous input method."
 428  nil t t)
 429
 430 (quail-define-rules ("qq" quail-japanese-switch-package))
 431
 432 (quail-define-package
 433  "japanese-zenkaku" "Japanese" "\e$B#A\e(B"
 434  nil
 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.
 440 "
 441  nil t t)
 442
 443 (quail-define-rules
 444
 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")
 469
 470 ("qq" quail-japanese-switch-package)
 471 ("qh" quail-japanese-switch-package)
 472 )
 473
 474 (defun quail-japanese-hankaku-update-translation (control-flag)
 475   (setq 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)))
 481   control-flag)
 482
 483 (quail-define-package
 484  "japanese-hankaku-kana"
 485  "Japanese" "\e(I1\e(B"
 486  nil
 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'.
 490 "
 491  nil t t nil nil nil nil nil
 492  'quail-japanese-hankaku-update-translation)
 493
 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)
 499                                                     trans
 500                                                   (aref trans 0)))))
 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
 507                        ;; translations.
 508                        (if (and (stringp s) (> (length s) 1))
 509                            (setq trans (vector s))
 510                          (setq trans s))))
 511                    trans)))
 512
 513 (quail-define-package
 514  "japanese-hiragana" "Japanese" "\e$B$"\e(B"
 515  nil
 516  "Japanese hiragana input method by Roman transliteration."
 517  nil t t nil nil nil nil nil
 518  'quail-japanese-update-translation)
 519
 520 ;; Use the same map as that of `japanese'.
 521 (setcar (cdr (cdr quail-current-package))
 522         (nth 2 (assoc "japanese" quail-package-alist)))
 523
 524 ;; Update Quail translation region while converting Hiragana to Katakana.
 525 (defun quail-japanese-katakana-update-translation (control-flag)
 526   (setq 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)))
 532   control-flag)
 533
 534 (quail-define-package
 535  "japanese-katakana" "Japanese" "\e$B%"\e(B"
 536  nil
 537  "Japanese katakana input method by Roman transliteration."
 538  nil t t nil nil nil nil nil
 539  'quail-japanese-katakana-update-translation)
 540
 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))
 546                          ((vectorp trans)
 547                           (vector (japanese-katakana (aref trans 0))))
 548                          (t trans)))))
 549
 550 ;;; arch-tag: 47e0bfd4-6ecc-4d01-89a8-d687c5e01ff7
 551 ;;; japanese.el ends here