-;;; quail/japanese.el --- Quail package for inputting Japanese
-
-;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
-;; Licensed to the Free Software Foundation.
-
-;; Keywords: multilingual, input method, Japanese
-
-;; This file is part of GNU Emacs.
-
-;; GNU Emacs is free software; you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
-;; any later version.
-
-;; GNU Emacs is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-;; GNU General Public License for more details.
-
-;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING. If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
-
-;;; Code:
-
-(require 'quail)
-(require 'kkc)
-
-;; Update Quail translation region for Japanese bizarre translation
-;; rules.
-(defun quail-japanese-update-translation (control-flag)
- (cond ((eq control-flag t)
- (insert quail-current-str)
- (quail-terminate-translation))
- ((null control-flag)
- (if (/= (aref quail-current-key 0) ?q)
- (insert (or quail-current-str quail-current-key))))
- (t ; i.e. (numberp control-flag)
- (cond ((= (aref quail-current-key 0) ?n)
- (insert ?\e$B$s\e(B))
- ((= (aref quail-current-key 0) (aref quail-current-key 1))
- (insert ?\e$B$C\e(B))
- (t
- (insert (aref quail-current-key 0))))
- (setq unread-command-events
- (list (aref quail-current-key control-flag)))
- (quail-terminate-translation))))
-
-;; Flag to control the behavior of `quail-japanese-toggle-kana'.
-(defvar quail-japanese-kana-state nil)
-(make-variable-buffer-local 'quail-japanese-kana-state)
-
-;; Convert Hiragana <-> Katakana in the current translation region.
-(defun quail-japanese-toggle-kana ()
- (interactive)
- (if (quail-point-in-conversion-region)
- (let ((start (overlay-start quail-conv-overlay))
- (end (overlay-end quail-conv-overlay)))
- (setq quail-japanese-kana-state
- (if (eq last-command this-command)
- (not quail-japanese-kana-state)))
- (if quail-japanese-kana-state
- (japanese-hiragana-region start end)
- (japanese-katakana-region start end))
- (goto-char (overlay-end quail-conv-overlay))
- (setq quail-exit-conversion-mode t))
- ;; When this command is invoked, the point is not in a valid
- ;; region. Try the event which invoked this command again out of
- ;; conversion mode.
- (setq unread-command-events (list last-command-event))
- (throw 'exit nil)))
-
-;; Convert Hiragana in the current translation region to Kanji by KKC
-;; (Kana Kanji Converter) utility.
-(defun quail-japanese-kanji-kkc ()
- (interactive)
- (if (quail-point-in-conversion-region)
- (let ((from (overlay-start quail-conv-overlay))
- (to (overlay-end quail-conv-overlay))
- newfrom)
- (delete-overlay quail-overlay)
- (delete-overlay quail-conv-overlay)
- (unwind-protect
- (setq newfrom (kkc-region from to))
- ;; Activate the original (or shrinked) conversion region
- ;; again.
- (if newfrom
- ;; `kkc-region' is canceled.
- (move-overlay quail-conv-overlay newfrom (point))
- ;; `kkc-region' is terminated normally.
- (move-overlay quail-conv-overlay from (point))
- (throw 'exit nil))))
- ;; When this command is invoked, the point is not in a valid
- ;; region. Try the event which invoked this command again out of
- ;; conversion mode.
- (setq unread-command-events (list last-command-event))
- (throw 'exit nil)))
-
-(defun quail-japanese-self-insert-and-switch-to-alpha (key idx)
- (quail-delete-region)
- (setq unread-command-events (list (aref key (1- idx))))
- (quail-japanese-switch-package "q" 1))
-
-(defvar quail-japanese-switch-table
- '((?z . "japanese-zenkaku")
- (?k . "japanese-hankaku-kana")
- (?h . "japanese")
- (?q . ("japanese-ascii"))))
-
-(defvar quail-japanese-package-saved nil)
-(make-variable-buffer-local 'quail-japanese-package-saved)
-(put 'quail-japanese-package-saved 'permanent-local t)
-
-(defun quail-japanese-switch-package (key idx)
- (let ((pkg (cdr (assq (aref key (1- idx)) quail-japanese-switch-table))))
- (if (null pkg)
- (error "No package to be switched")
- (quail-delete-region)
- (if (stringp pkg)
- (select-input-method pkg)
- (if (string= (car pkg) current-input-method)
- (if quail-japanese-package-saved
- (select-input-method quail-japanese-package-saved))
- (setq quail-japanese-package-saved current-input-method)
- (select-input-method (car pkg))))
- (throw 'quail-tag nil))))
-
-(quail-define-package
- "japanese" "Japanese" "A\e$B$"\e(B"
- nil
- "Romaji -> Hiragana -> Kanji&Kana
----- Special key bindings ----
-qq: toggle between input methods `japanese' and `japanese-ascii'
-qz: use `japanese-zenkaku' package, \"qh\" puts you back to `japanese'
-K: convert to Katakana
-SPC: convert to Kanji&Kana
-z: insert one Japanese symbol according to a key which follows
-"
- nil t t nil nil nil nil nil
- 'quail-japanese-update-translation
- '(("K" . quail-japanese-toggle-kana)
- (" " . quail-japanese-kanji-kkc)
- ("\C-m" . quail-no-conversion)
- ([return] . quail-no-conversion))
- )
-
-(quail-define-rules
-
-( "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")
-("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")
-("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")
-("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")
-("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")
-("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")
-("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")
-("ya" "\e$B$d\e(B") ("yu" "\e$B$f\e(B") ("yo" "\e$B$h\e(B")
-("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")
-("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")
-("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")
-("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")
-("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")
-("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")
-("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")
-("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")
-
-("kya" ["\e$B$-$c\e(B"]) ("kyu" ["\e$B$-$e\e(B"]) ("kye" ["\e$B$-$'\e(B"]) ("kyo" ["\e$B$-$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"])
-("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"])
-("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"])
-("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"])
-("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"])
-("mya" ["\e$B$_$c\e(B"]) ("myu" ["\e$B$_$e\e(B"]) ("mye" ["\e$B$_$'\e(B"]) ("myo" ["\e$B$_$g\e(B"])
-("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"])
-("gya" ["\e$B$.$c\e(B"]) ("gyu" ["\e$B$.$e\e(B"]) ("gye" ["\e$B$.$'\e(B"]) ("gyo" ["\e$B$.$g\e(B"])
-("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"])
-( "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"])
-("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"])
-
-("kwa" ["\e$B$/$n\e(B"]) ("kwi" ["\e$B$/$#\e(B"]) ("kwe" ["\e$B$/$'\e(B"]) ("kwo" ["\e$B$/$)\e(B"])
-("tsa" ["\e$B$D$!\e(B"]) ("tsi" ["\e$B$D$#\e(B"]) ("tse" ["\e$B$D$'\e(B"]) ("tso" ["\e$B$D$)\e(B"])
-( "fa" ["\e$B$U$!\e(B"]) ( "fi" ["\e$B$U$#\e(B"]) ( "fe" ["\e$B$U$'\e(B"]) ( "fo" ["\e$B$U$)\e(B"])
-("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"])
-
-("dyi" ["\e$B$G$#\e(B"]) ("dyu" ["\e$B$I$%\e(B"]) ("dye" ["\e$B$G$'\e(B"]) ("dyo" ["\e$B$I$)\e(B"])
-("xwi" ["\e$B$&$#\e(B"]) ("xwe" ["\e$B$&$'\e(B"]) ("xwo" ["\e$B$&$)\e(B"])
-
-("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")
-("ye" ["\e$B$$$'\e(B"])
-
-("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"])
-
-("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") ("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")
-
-("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")
-("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")
-
-("!" "\e$B!*\e(B") ("@" "\e$B!w\e(B") ("#" "\e$B!t\e(B") ("$" "\e$B!p\e(B") ("%" "\e$B!s\e(B")
-("^" "\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")
-("-" "\e$B!<\e(B") ("=" "\e$B!a\e(B") ("`" "\e$B!.\e(B") ("\\" "\e$B!o\e(B") ("|" "\e$B!C\e(B")
-("_" "\e$B!2\e(B") ("+" "\e$B!\\e(B") ("~" "\e$B!1\e(B") ("[" "\e$B!V\e(B") ("]" "\e$B!W\e(B")
-("{" "\e$B!P\e(B") ("}" "\e$B!Q\e(B") (":" "\e$B!'\e(B") (";" "\e$B!(\e(B") ("\"" "\e$B!I\e(B")
-("'" "\e$B!G\e(B") ("." "\e$B!#\e(B") ("," "\e$B!"\e(B") ("<" "\e$B!c\e(B") (">" "\e$B!d\e(B")
-("?" "\e$B!)\e(B") ("/" "\e$B!?\e(B")
-
-("z1" "\e$B!{\e(B") ("z!" "\e$B!|\e(B")
-("z2" "\e$B"&\e(B") ("z@" "\e$B"'\e(B")
-("z3" "\e$B"$\e(B") ("z#" "\e$B"%\e(B")
-("z4" "\e$B""\e(B") ("z$" "\e$B"#\e(B")
-("z5" "\e$B!~\e(B") ("z%" "\e$B"!\e(B")
-("z6" "\e$B!y\e(B") ("z^" "\e$B!z\e(B")
-("z7" "\e$B!}\e(B") ("z&" "\e$B!r\e(B")
-("z8" "\e$B!q\e(B") ("z*" "\e$B!_\e(B")
-("z9" "\e$B!i\e(B") ("z(" "\e$B!Z\e(B")
-("z0" "\e$B!j\e(B") ("z)" "\e$B![\e(B")
-("z-" "\e$B!A\e(B") ("z_" "\e$B!h\e(B")
-("z=" "\e$B!b\e(B") ("z+" "\e$B!^\e(B")
-("z\\" "\e$B!@\e(B") ("z|" "\e$B!B\e(B")
-("z`" "\e$B!-\e(B") ("z~" "\e$B!/\e(B")
-
-("zq" "\e$B!T\e(B") ("zQ" "\e$B!R\e(B")
-("zw" "\e$B!U\e(B") ("zW" "\e$B!S\e(B")
-("zr" "\e$B!9\e(B") ("zR" "\e$B!8\e(B")
-("zt" "\e$B!:\e(B") ("zT" "\e$B!x\e(B")
-("zp" "\e$B")\e(B") ("zP" "\e$B",\e(B")
-("z[" "\e$B!X\e(B") ("z{" "\e$B!L\e(B")
-("z]" "\e$B!Y\e(B") ("z}" "\e$B!M\e(B")
-
-("zs" "\e$B!3\e(B") ("zS" "\e$B!4\e(B")
-("zd" "\e$B!5\e(B") ("zD" "\e$B!6\e(B")
-("zf" "\e$B!7\e(B") ("zF" "\e$B"*\e(B")
-("zg" "\e$B!>\e(B") ("zG" "\e$B!=\e(B")
-("zh" "\e$B"+\e(B")
-("zj" "\e$B"-\e(B")
-("zk" "\e$B",\e(B")
-("zl" "\e$B"*\e(B")
-("z;" "\e$B!+\e(B") ("z:" "\e$B!,\e(B")
-("z\'" "\e$B!F\e(B") ("z\"" "\e$B!H\e(B")
-
-("zx" ":-") ("zX" ":-)")
-("zc" "\e$B!;\e(B") ("zC" "\e$B!n\e(B")
-("zv" "\e$B"(\e(B") ("zV" "\e$B!`\e(B")
-("zb" "\e$B!k\e(B") ("zB" "\e$B"+\e(B")
-("zn" "\e$B!l\e(B") ("zN" "\e$B"-\e(B")
-("zm" "\e$B!m\e(B") ("zM" "\e$B".\e(B")
-("z," "\e$B!E\e(B") ("z<" "\e$B!e\e(B")
-("z." "\e$B!D\e(B") ("z>" "\e$B!f\e(B")
-("z/" "\e$B!&\e(B") ("z?" "\e$B!g\e(B")
-
-("\\\\" quail-japanese-self-insert-and-switch-to-alpha)
-("{{" quail-japanese-self-insert-and-switch-to-alpha)
-("}}" quail-japanese-self-insert-and-switch-to-alpha)
-
-("qq" quail-japanese-switch-package)
-("qz" quail-japanese-switch-package)
-
-)
-
-(quail-define-package
- "japanese-ascii" "Japanese" "Aa"
- nil
- "Temporary ASCII input mode while using Quail package `japanese'
-Type \"qq\" to go back to previous package."
- nil t t)
-
-(quail-define-rules ("qq" quail-japanese-switch-package))
-
-(quail-define-package
- "japanese-zenkaku" "Japanese" "\e$B#A\e(B"
- nil
- "Japanese zenkaku alpha numeric character input method
----- Special key bindings ----
-qq: toggle between `japanese-zenkaku' and `japanese-ascii'
-qh: use `japanese' package, \"qz\" puts you back to `japanese-zenkaku'
-"
- nil t t)
-
-(quail-define-rules
-
-(" " "\e$B!!\e(B") ("!" "\e$B!*\e(B") ("\"" "\e$B!m\e(B") ("#" "\e$B!t\e(B")
-("$" "\e$B!p\e(B") ("%" "\e$B!s\e(B") ("&" "\e$B!u\e(B") ("'" "\e$B!l\e(B")
-("(" "\e$B!J\e(B") (")" "\e$B!K\e(B") ("*" "\e$B!v\e(B") ("+" "\e$B!\\e(B")
-("," "\e$B!$\e(B") ("-" "\e$B!]\e(B") ("." "\e$B!%\e(B") ("/" "\e$B!?\e(B")
-("0" "\e$B#0\e(B") ("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") ("6" "\e$B#6\e(B") ("7" "\e$B#7\e(B")
-("8" "\e$B#8\e(B") ("9" "\e$B#9\e(B") (":" "\e$B!'\e(B") (";" "\e$B!(\e(B")
-("<" "\e$B!c\e(B") ("=" "\e$B!a\e(B") (">" "\e$B!d\e(B") ("?" "\e$B!)\e(B")
-("@" "\e$B!w\e(B") ("A" "\e$B#A\e(B") ("B" "\e$B#B\e(B") ("C" "\e$B#C\e(B")
-("D" "\e$B#D\e(B") ("E" "\e$B#E\e(B") ("F" "\e$B#F\e(B") ("G" "\e$B#G\e(B")
-("H" "\e$B#H\e(B") ("I" "\e$B#I\e(B") ("J" "\e$B#J\e(B") ("K" "\e$B#K\e(B")
-("L" "\e$B#L\e(B") ("M" "\e$B#M\e(B") ("N" "\e$B#N\e(B") ("O" "\e$B#O\e(B")
-("P" "\e$B#P\e(B") ("Q" "\e$B#Q\e(B") ("R" "\e$B#R\e(B") ("S" "\e$B#S\e(B")
-("T" "\e$B#T\e(B") ("U" "\e$B#U\e(B") ("V" "\e$B#V\e(B") ("W" "\e$B#W\e(B")
-("X" "\e$B#X\e(B") ("Y" "\e$B#Y\e(B") ("Z" "\e$B#Z\e(B") ("[" "\e$B!N\e(B")
-("\\" "\e$B!o\e(B") ("]" "\e$B!O\e(B") ("^" "\e$B!0\e(B") ("_" "\e$B!2\e(B")
-("`" "\e$B!F\e(B") ("a" "\e$B#a\e(B") ("b" "\e$B#b\e(B") ("c" "\e$B#c\e(B")
-("d" "\e$B#d\e(B") ("e" "\e$B#e\e(B") ("f" "\e$B#f\e(B") ("g" "\e$B#g\e(B")
-("h" "\e$B#h\e(B") ("i" "\e$B#i\e(B") ("j" "\e$B#j\e(B") ("k" "\e$B#k\e(B")
-("l" "\e$B#l\e(B") ("m" "\e$B#m\e(B") ("n" "\e$B#n\e(B") ("o" "\e$B#o\e(B")
-("p" "\e$B#p\e(B") ("q" "\e$B#q\e(B") ("r" "\e$B#r\e(B") ("s" "\e$B#s\e(B")
-("t" "\e$B#t\e(B") ("u" "\e$B#u\e(B") ("v" "\e$B#v\e(B") ("w" "\e$B#w\e(B")
-("x" "\e$B#x\e(B") ("y" "\e$B#y\e(B") ("z" "\e$B#z\e(B") ("{" "\e$B!P\e(B")
-("|" "\e$B!C\e(B") ("}" "\e$B!Q\e(B") ("~" "\e$B!A\e(B")
-
-("qq" quail-japanese-switch-package)
-("qh" quail-japanese-switch-package)
-)
-
-(defun quail-japanese-hankaku-update-translation (control-flag)
- (cond ((eq control-flag t)
- (insert (japanese-hankaku quail-current-str))
- (quail-terminate-translation))
- ((null control-flag)
- (insert (if quail-current-str
- (japanese-hankaku quail-current-str)
- quail-current-key)))
- (t ; i.e. (numberp control-flag)
- (cond ((= (aref quail-current-key 0) ?n)
- (insert ?\e(I]\e(B))
- ((= (aref quail-current-key 0) (aref quail-current-key 1))
- (insert ?\e(I/\e(B))
- (t
- (insert (aref quail-current-key 0))))
- (setq unread-command-events
- (list (aref quail-current-key control-flag)))
- (quail-terminate-translation))))
-
-
-(quail-define-package
- "japanese-hankaku-kana"
- "Japanese" "\e(I1\e(B"
- nil
- "Japanese hankaku katakana input method by Roman transliteration
----- Special key bindings ----
-qq: toggle between `japanese-hankaku-kana' and `japanese-ascii'
-"
- nil t t nil nil nil nil nil
- 'quail-japanese-hankaku-update-translation)
-
-;; Use the same map as that of `japanese'.
-(setcar (cdr (cdr quail-current-package))
- (nth 2 (assoc "japanese" quail-package-alist)))
-
-(quail-define-package
- "japanese-hiragana" "Japanese" "\e$B$"\e(B"
- nil
- "Japanese hiragana input method by Roman transliteration"
- nil t t nil nil nil nil nil
- 'quail-japanese-update-translation)
-
-;; Use the same map as that of `japanese'.
-(setcar (cdr (cdr quail-current-package))
- (nth 2 (assoc "japanese" quail-package-alist)))
-
-;; Update Quail translation region while converting Hiragana to Katakana.
-(defun quail-japanese-katakana-update-translation (control-flag)
- (cond ((eq control-flag t)
- (insert (japanese-katakana quail-current-str))
- (quail-terminate-translation))
- ((null control-flag)
- (insert (if quail-current-str
- (japanese-katakana quail-current-str)
- quail-current-key)))
- (t ; i.e. (numberp control-flag)
- (cond ((= (aref quail-current-key 0) ?n)
- (insert ?\e$B%s\e(B))
- ((= (aref quail-current-key 0) (aref quail-current-key 1))
- (insert ?\e$B%C\e(B))
- (t
- (insert (aref quail-current-key 0))))
- (setq unread-command-events
- (list (aref quail-current-key control-flag)))
- (quail-terminate-translation))))
-
-(quail-define-package
- "japanese-katakana" "Japanese" "\e$B%"\e(B"
- nil
- "Japanese katakana input method by Roman transliteration"
- nil t t nil nil nil nil nil
- 'quail-japanese-katakana-update-translation)
-
-;; Use the same map as that of `japanese'.
-(setcar (cdr (cdr quail-current-package))
- (nth 2 (assoc "japanese" quail-package-alist)))
+;;; japanese.el --- Quail package for inputting Japanese -*-coding: iso-2022-7bit;-*-
+
+;; Copyright (C) 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010
+;; Free Software Foundation, Inc.
+;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
+;; 2006, 2007, 2008, 2009, 2010
+;; National Institute of Advanced Industrial Science and Technology (AIST)
+;; Registration Number H14PRO021
+
+;; Keywords: multilingual, input method, Japanese
+
+;; This file is part of GNU Emacs.
+
+;; GNU Emacs is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; GNU Emacs is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;;; Code:
+
+(require 'quail)
+(require 'kkc)
+
+(defvar quail-japanese-use-double-n nil
+ "If non-nil, use type \"nn\" to insert \e$B$s\e(B.")
+
+;; Update Quail translation region while considering Japanese bizarre
+;; translation rules.
+(defun quail-japanese-update-translation (control-flag)
+ (if (null control-flag)
+ (setq quail-current-str
+ (if (/= (aref quail-current-key 0) ?q)
+ (or quail-current-str quail-current-key)
+ ""))
+ (if (integerp control-flag)
+ (if (= control-flag 0)
+ (setq quail-current-str (aref quail-current-key 0))
+ (cond ((= (aref quail-current-key 0) ?n)
+ (setq quail-current-str ?\e$B$s\e(B)
+ (if (and quail-japanese-use-double-n
+ (= (aref quail-current-key 1) ?n))
+ (setq control-flag t)))
+ ((= (aref quail-current-key 0) (aref quail-current-key 1))
+ (setq quail-current-str ?\e$B$C\e(B))
+ (t
+ (setq quail-current-str (aref quail-current-key 0))))
+ (if (integerp control-flag)
+ (setq unread-command-events
+ (list (aref quail-current-key control-flag)))))))
+ control-flag)
+
+;; Convert Hiragana <-> Katakana in the current translation region.
+(defun quail-japanese-toggle-kana ()
+ (interactive)
+ (setq quail-translating nil)
+ (let ((start (overlay-start quail-conv-overlay))
+ (end (overlay-end quail-conv-overlay)))
+ (save-excursion
+ (goto-char start)
+ (if (re-search-forward "\\cH" end t)
+ (japanese-katakana-region start end)
+ (japanese-hiragana-region start end)))
+ (setq quail-conversion-str
+ (buffer-substring (overlay-start quail-conv-overlay)
+ (overlay-end quail-conv-overlay)))))
+
+;; Convert Hiragana in the current translation region to Kanji by KKC
+;; (Kana Kanji Converter) utility.
+(defun quail-japanese-kanji-kkc ()
+ (interactive)
+ (when (= (char-before (overlay-end quail-conv-overlay)) ?n)
+ ;; The last char is `n'. We had better convert it to `\e$B$s\e(B'
+ ;; before kana-kanji conversion.
+ (goto-char (1- (overlay-end quail-conv-overlay)))
+ (insert ?\e$B$s\e(B)
+ (delete-char 1))
+ (let* ((from (copy-marker (overlay-start quail-conv-overlay)))
+ (len (- (overlay-end quail-conv-overlay) from)))
+ (quail-delete-overlays)
+ (setq quail-current-str nil)
+ (unwind-protect
+ (let ((result (kkc-region from (+ from len))))
+ (move-overlay quail-conv-overlay from (point))
+ (setq quail-conversion-str (buffer-substring from (point)))
+ (if (= (+ from result) (point))
+ (setq quail-converting nil))
+ (setq quail-translating nil))
+ (set-marker from nil))))
+
+(defun quail-japanese-self-insert-and-switch-to-alpha (key idx)
+ (quail-delete-region)
+ (setq unread-command-events (list (aref key (1- idx))))
+ (quail-japanese-switch-package "q" 1))
+
+(defvar quail-japanese-switch-table
+ '((?z . "japanese-zenkaku")
+ (?k . "japanese-hankaku-kana")
+ (?h . "japanese")
+ (?q . ("japanese-ascii"))))
+
+(defvar quail-japanese-package-saved nil)
+(make-variable-buffer-local 'quail-japanese-package-saved)
+(put 'quail-japanese-package-saved 'permanent-local t)
+
+(defun quail-japanese-switch-package (key idx)
+ (quail-delete-region)
+ (setq quail-current-str nil
+ quail-converting nil
+ quail-conversion-str "")
+ (let ((pkg (cdr (assq (aref key (1- idx)) quail-japanese-switch-table))))
+ (if (null pkg)
+ (quail-error "No package to be switched")
+ (if (stringp pkg)
+ (activate-input-method pkg)
+ (if (string= (car pkg) current-input-method)
+ (if quail-japanese-package-saved
+ (activate-input-method quail-japanese-package-saved))
+ (setq quail-japanese-package-saved current-input-method)
+ (activate-input-method (car pkg))))))
+ (throw 'quail-tag nil))
+
+(defvar quail-japanese-transliteration-rules
+ '(( "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")
+ ("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")
+ ("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")
+ ("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")
+ ("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")
+ ("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")
+ ("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")
+ ("ya" "\e$B$d\e(B") ("yu" "\e$B$f\e(B") ("yo" "\e$B$h\e(B")
+ ("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")
+ ("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")
+ ("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")
+ ("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")
+ ("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")
+ ("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")
+ ("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")
+ ("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")
+
+ ("kya" ["\e$B$-$c\e(B"]) ("kyu" ["\e$B$-$e\e(B"]) ("kye" ["\e$B$-$'\e(B"]) ("kyo" ["\e$B$-$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"])
+ ("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"])
+ ("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"])
+ ("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"])
+ ("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"])
+ ("mya" ["\e$B$_$c\e(B"]) ("myu" ["\e$B$_$e\e(B"]) ("mye" ["\e$B$_$'\e(B"]) ("myo" ["\e$B$_$g\e(B"])
+ ("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"])
+ ("gya" ["\e$B$.$c\e(B"]) ("gyu" ["\e$B$.$e\e(B"]) ("gye" ["\e$B$.$'\e(B"]) ("gyo" ["\e$B$.$g\e(B"])
+ ("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"])
+ ( "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"])
+ ("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"])
+
+ ("kwa" ["\e$B$/$n\e(B"]) ("kwi" ["\e$B$/$#\e(B"]) ("kwe" ["\e$B$/$'\e(B"]) ("kwo" ["\e$B$/$)\e(B"])
+ ("tsa" ["\e$B$D$!\e(B"]) ("tsi" ["\e$B$D$#\e(B"]) ("tse" ["\e$B$D$'\e(B"]) ("tso" ["\e$B$D$)\e(B"])
+ ( "fa" ["\e$B$U$!\e(B"]) ( "fi" ["\e$B$U$#\e(B"]) ( "fe" ["\e$B$U$'\e(B"]) ( "fo" ["\e$B$U$)\e(B"])
+ ("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"])
+
+ ("dyi" ["\e$B$G$#\e(B"]) ("dyu" ["\e$B$I$%\e(B"]) ("dye" ["\e$B$G$'\e(B"]) ("dyo" ["\e$B$I$)\e(B"])
+ ("xwi" ["\e$B$&$#\e(B"]) ("xwe" ["\e$B$&$'\e(B"]) ("xwo" ["\e$B$&$)\e(B"])
+
+ ("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")
+ ("ye" ["\e$B$$$'\e(B"])
+
+ ("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"])
+
+ ("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") ("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")
+
+ ("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")
+ ("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")
+
+ ("!" "\e$B!*\e(B") ("@" "\e$B!w\e(B") ("#" "\e$B!t\e(B") ("$" "\e$B!p\e(B") ("%" "\e$B!s\e(B")
+ ("^" "\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")
+ ("-" "\e$B!<\e(B") ("=" "\e$B!a\e(B") ("`" "\e$B!.\e(B") ("\\" "\e$B!o\e(B") ("|" "\e$B!C\e(B")
+ ("_" "\e$B!2\e(B") ("+" "\e$B!\\e(B") ("~" "\e$B!1\e(B") ("[" "\e$B!V\e(B") ("]" "\e$B!W\e(B")
+ ("{" "\e$B!P\e(B") ("}" "\e$B!Q\e(B") (":" "\e$B!'\e(B") (";" "\e$B!(\e(B") ("\"" "\e$B!I\e(B")
+ ("'" "\e$B!G\e(B") ("." "\e$B!#\e(B") ("," "\e$B!"\e(B") ("<" "\e$B!c\e(B") (">" "\e$B!d\e(B")
+ ("?" "\e$B!)\e(B") ("/" "\e$B!?\e(B")
+
+ ("z1" "\e$B!{\e(B") ("z!" "\e$B!|\e(B")
+ ("z2" "\e$B"&\e(B") ("z@" "\e$B"'\e(B")
+ ("z3" "\e$B"$\e(B") ("z#" "\e$B"%\e(B")
+ ("z4" "\e$B""\e(B") ("z$" "\e$B"#\e(B")
+ ("z5" "\e$B!~\e(B") ("z%" "\e$B"!\e(B")
+ ("z6" "\e$B!y\e(B") ("z^" "\e$B!z\e(B")
+ ("z7" "\e$B!}\e(B") ("z&" "\e$B!r\e(B")
+ ("z8" "\e$B!q\e(B") ("z*" "\e$B!_\e(B")
+ ("z9" "\e$B!i\e(B") ("z(" "\e$B!Z\e(B")
+ ("z0" "\e$B!j\e(B") ("z)" "\e$B![\e(B")
+ ("z-" "\e$B!A\e(B") ("z_" "\e$B!h\e(B")
+ ("z=" "\e$B!b\e(B") ("z+" "\e$B!^\e(B")
+ ("z\\" "\e$B!@\e(B") ("z|" "\e$B!B\e(B")
+ ("z`" "\e$B!-\e(B") ("z~" "\e$B!/\e(B")
+
+ ("zq" "\e$B!T\e(B") ("zQ" "\e$B!R\e(B")
+ ("zw" "\e$B!U\e(B") ("zW" "\e$B!S\e(B")
+ ("zr" "\e$B!9\e(B") ("zR" "\e$B!8\e(B")
+ ("zt" "\e$B!:\e(B") ("zT" "\e$B!x\e(B")
+ ("zp" "\e$B")\e(B") ("zP" "\e$B",\e(B")
+ ("z[" "\e$B!X\e(B") ("z{" "\e$B!L\e(B")
+ ("z]" "\e$B!Y\e(B") ("z}" "\e$B!M\e(B")
+
+ ("zs" "\e$B!3\e(B") ("zS" "\e$B!4\e(B")
+ ("zd" "\e$B!5\e(B") ("zD" "\e$B!6\e(B")
+ ("zf" "\e$B!7\e(B") ("zF" "\e$B"*\e(B")
+ ("zg" "\e$B!>\e(B") ("zG" "\e$B!=\e(B")
+ ("zh" "\e$B"+\e(B")
+ ("zj" "\e$B"-\e(B")
+ ("zk" "\e$B",\e(B")
+ ("zl" "\e$B"*\e(B")
+ ("z;" "\e$B!+\e(B") ("z:" "\e$B!,\e(B")
+ ("z\'" "\e$B!F\e(B") ("z\"" "\e$B!H\e(B")
+
+ ("zx" [":-"]) ("zX" [":-)"])
+ ("zc" "\e$B!;\e(B") ("zC" "\e$B!n\e(B")
+ ("zv" "\e$B"(\e(B") ("zV" "\e$B!`\e(B")
+ ("zb" "\e$B!k\e(B") ("zB" "\e$B"+\e(B")
+ ("zn" "\e$B!l\e(B") ("zN" "\e$B"-\e(B")
+ ("zm" "\e$B!m\e(B") ("zM" "\e$B".\e(B")
+ ("z," "\e$B!E\e(B") ("z<" "\e$B!e\e(B")
+ ("z." "\e$B!D\e(B") ("z>" "\e$B!f\e(B")
+ ("z/" "\e$B!&\e(B") ("z?" "\e$B!g\e(B")
+
+ ("\\\\" quail-japanese-self-insert-and-switch-to-alpha)
+ ("{{" quail-japanese-self-insert-and-switch-to-alpha)
+ ("}}" quail-japanese-self-insert-and-switch-to-alpha)
+
+ ("qq" quail-japanese-switch-package)
+ ("qz" quail-japanese-switch-package)
+ ))
+
+
+;; \e$B%m!<%^;zF~NO5Z$S2>L>4A;zJQ49$K$h$kF|K\8lF~NO%a%=%C%I\e(B
+;;
+;; \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
+;; \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
+;; \e$B%Z!<%9%-!<$r2!$9$3$H$K$h$j!"<!$N%9%F!<%8!V2>L>4A;zJQ49!W$X?J$`!#\e(B
+;;
+;; \e$B!V%m!<%^;z2>L>JQ49!W\e(B
+;;
+;; \e$BJ?2>L>$O>.J8;z%-!<!JNs!K$rBG$D$3$H$K$h$jF~NO!#6gFIE@!"3g8LN`$OBP1~\e(B
+;; \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
+;; \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
+;; \e$B%H%"%C%W$5$l$F$$$k!#F~NO$5$l$?J8;z$O2<@~$G<($5$l$k!#\e(B
+;;
+;; \e$B$5$i$K0J2<$N%-!<$GFCJL$J=hM}$r9T$&!#\e(B
+;;
+;; K \e$BJ?2>L>$rJR2>L>$K!"$"$k$$$OJR2>L>$rJ?2>L>$KJQ49\e(B
+;; 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
+;; qz `japanese-zenkaku' \e$BF~NO%a%=%C%I$K%7%U%H\e(B
+;; qh \e$B$HBG$F$P85$KLa$k\e(B
+;; RET \e$B8=:_$NF~NOJ8;zNs$r3NDj\e(B
+;; SPC \e$B2>L>4A;zJQ49$K?J$`\e(B
+;;
+;; `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
+;; \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
+;; \e$BBG$D$3$H$K$h$j!"\e(B`japanese' \e$BF~NO%a%=%C%I$KLa$l$kE@$G$"$k!#\e(B
+;;
+;; `japanese-zenkaku' \e$BF~NO%a%=%C%I$OA43Q1Q?t;z$rF~NO$9$k$N$K;H$&!#\e(B
+;;
+;; \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
+;; \e$B$F$"$k!#\e(B
+;;
+;; \e$B!V2>L>4A;zJQ49!W\e(B
+;;
+;; \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
+;; \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
+;; \e$BJ,$1$i$l$k!#CmL\J8@a$KBP$7$F$O0J2<$N%3%^%s%I$,;H$($k!#\e(B
+;;
+;; SPC, C-n kkc-next
+;; \e$B<!$NJQ498uJd$rI=<(\e(B
+;; kkc-show-conversion-list-count \e$B0J>eB3$1$FBG$F$P!"JQ498uJd%j%9\e(B
+;; \e$B%H$r%(%3!<%(%j%"$KI=<(\e(B
+;; C-p kkc-prev
+;; \e$BA0$NJQ498uJd$rI=<(\e(B
+;; kkc-show-conversion-list-count \e$B0J>eB3$1$FBG$F$P!"JQ498uJd%j%9\e(B
+;; \e$B%H$r%(%3!<%(%j%"$KI=<(\e(B
+;; l kkc-show-conversion-list-or-next-group
+;; \e$B:G9b#1#08D$^$G$NJQ498uJd$r%(%3!<%(%j%"$KI=<(!#\e(B
+;; \e$BB3$1$FBG$?$l$l$P!"<!$N#1#08uJd$rI=<(!#\e(B
+;; L kkc-show-conversion-list-or-prev-group
+;; \e$B:G9b#1#08D$^$G$NJQ498uJd$r%(%3!<%(%j%"$KI=<(!#\e(B
+;; \e$BB3$1$FBG$?$l$l$P!"A0$N#1#08uJd$rI=<(!#\e(B
+;; 0..9 kkc-select-from-list
+;; \e$BBG$?$l$??t;z$NJQ498uJd$rA*Br\e(B
+;; H kkc-hiragana
+;; \e$BCmL\J8@a$rJ?2>L>$KJQ49\e(B
+;; K kkc-katakana
+;; \e$BCmL\J8@a$rJR2>L>$KJQ49\e(B
+;; C-o kkc-longer
+;; \e$BCmL\J8@a$r8e$m$K0lJ8;z?-$P$9\e(B
+;; C-i kkc-shorter
+;; \e$BCmL\J8@a$r8e$m$+$i0lJ8;z=L$a$k\e(B
+;; C-f kkc-next-phrase
+;; \e$BCmL\J8@a$r3NDj$5$;$k!#$b$7;D$j$NF~NO$,$^$@$"$l$P!":G=i$NJ8@a$r\e(B
+;; \e$BA*Br$7!"$=$l$rCmL\J8@a$H$7!"$=$N:G=i$NJQ498uJd$rI=<($9$k!#\e(B
+;; DEL, C-c kkc-cancel
+;; \e$B2>L>4A;zJQ49$r%-%c%s%;%k$7!"%m!<%^;z2>L>JQ49$N%9%F!<%8$KLa$k!#\e(B
+;; return kkc-terminate
+;; \e$BA4J8@a$r3NDj$5$;$k!#\e(B
+;; C-SPC, C-@ kkc-first-char-only
+;; \e$B:G=i$NJ8;z$r3NDj$5$;!";D$j$O:o=|$9$k!#\e(B
+;; C-h kkc-help
+;; \e$B$3$l$i$N%-!<%P%$%s%I$N%j%9%H$rI=<($9$k!#$"\e(B
+
+(quail-define-package
+ "japanese" "Japanese" "A\e$B$"\e(B"
+ nil
+ "Japanese input method by Roman transliteration and Kana-Kanji conversion.
+
+When you use this input method, text entry proceeds in two stages:
+Roman-Kana transliteration and Kana-Kanji conversion. When you start
+to enter text, you are in the first stage, Roman-Kana transliteration.
+Type SPC to proceed to the next stage, Kana-Kanji conversion.
+
+:: Roman-Kana transliteration ::
+
+You can input any Hiragana character as a sequence of lower-case
+letters, Japanese punctuation characters by typing punctuation keys,
+Japanese symbols by typing `z' followed by another key. See below for
+a list of all available sequences. The characters you input are
+underlined.
+
+In addition, the following keys provide special effects:
+
+K Change Hiragana to Katakana or Katakana to Hiragana.
+qq Toggle between this input method and the input method `japanese-ascii'.
+qz Shift to the input method `japanese-zenkaku'.
+ Typing \"qh\" will put you back to this input method.
+RET Accept the current character sequence.
+SPC Proceed to the next stage, Kana-Kanji conversion.
+
+The input method `japanese-ascii' is used to enter ASCII characters.
+This is almost the same as turning off the input method. The only
+difference is that typing `qq' will put you back into the Japanese
+input method.
+
+The input method `japanese-zenkaku' is used to enter full width
+JISX0208 characters corresponding to typed ASCII characters.
+
+List of the all key sequences for Roman-Kana transliteration is shown
+at the tail.
+
+:: Kana-Kanji conversion ::
+
+You can convert the current Japanese characters (underlined) to
+Kana-Kanji mixed text. In this stage, the converted text is divided
+into two parts, the current phrase (highlighted) and the remaining
+input (underlined). The following commands can be used on the
+current phrase.
+
+SPC, C-n kkc-next
+ Show the next candidate for the current phrase.
+ If successively typed `kkc-show-conversion-list-count' times,
+ conversion candidates are shown in the echo area.
+C-p kkc-prev
+ Show the previous candidate for the current phrase.
+ If successively typed `kkc-show-conversion-list-count' times,
+ conversion candidates are shown in the echo area.
+l kkc-show-conversion-list-or-next-group
+ Show at most 10 candidates for the current phrase in echo area.
+ If typed repeatedly, show the next 10 candidates.
+L kkc-show-conversion-list-or-prev-group
+ Show at most 10 candidates for the current phrase in echo area.
+ If typed repeatedly, show the previous 10 candidates.
+0..9 kkc-select-from-list
+ Select a candidate corresponding to the typed number.
+H kkc-hiragana
+ Convert the current phrase to Hiragana
+K kkc-katakana
+ Convert the current phrase to Katakana
+C-o kkc-longer
+ Extend the current phrase; pull in the first character of
+ the remaining input.
+C-i kkc-shorter
+ Contract the current phrase; drop its last character
+ back into the remaining input.
+C-f kkc-next-phrase
+ Accept the current phrase. If there remains input, select
+ the first phrase as the current one, and show the first
+ candidate for the conversion.
+DEL, C-c kkc-cancel
+ Cancel the conversion, shift back to the Roman-Kana
+ transliteration.
+return kkc-terminate
+ Accept the whole conversion.
+C-SPC, C-@ kkc-first-char-only
+ Accept the first character of the current conversion,
+ delete the remaining input.
+C-h kkc-help
+ List these key bindings.
+"
+ nil t t nil nil nil nil nil
+ 'quail-japanese-update-translation
+ '(("K" . quail-japanese-toggle-kana)
+ (" " . quail-japanese-kanji-kkc)
+ ("\C-m" . quail-no-conversion)
+ ([return] . quail-no-conversion))
+ )
+
+(dolist (elt quail-japanese-transliteration-rules)
+ (quail-defrule (car elt) (nth 1 elt)))
+
+(quail-define-package
+ "japanese-ascii" "Japanese" "Aa"
+ nil
+ "Temporary ASCII input mode used within the input method `japanese'.
+Type \"qq\" to go back to previous input method."
+ nil t t)
+
+(quail-define-rules ("qq" quail-japanese-switch-package))
+
+(quail-define-package
+ "japanese-zenkaku" "Japanese" "\e$B#A\e(B"
+ nil
+ "Japanese zenkaku alpha numeric character input method.
+---- Special key bindings ----
+qq: toggle between this input method and the input method `japanese-ascii'.
+qh: shift to the input method `japanese',
+ typing \"qz\" puts you back to this input method.
+"
+ nil t t)
+
+(quail-define-rules
+
+(" " "\e$B!!\e(B") ("!" "\e$B!*\e(B") ("\"" "\e$B!m\e(B") ("#" "\e$B!t\e(B")
+("$" "\e$B!p\e(B") ("%" "\e$B!s\e(B") ("&" "\e$B!u\e(B") ("'" "\e$B!l\e(B")
+("(" "\e$B!J\e(B") (")" "\e$B!K\e(B") ("*" "\e$B!v\e(B") ("+" "\e$B!\\e(B")
+("," "\e$B!$\e(B") ("-" "\e$B!]\e(B") ("." "\e$B!%\e(B") ("/" "\e$B!?\e(B")
+("0" "\e$B#0\e(B") ("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") ("6" "\e$B#6\e(B") ("7" "\e$B#7\e(B")
+("8" "\e$B#8\e(B") ("9" "\e$B#9\e(B") (":" "\e$B!'\e(B") (";" "\e$B!(\e(B")
+("<" "\e$B!c\e(B") ("=" "\e$B!a\e(B") (">" "\e$B!d\e(B") ("?" "\e$B!)\e(B")
+("@" "\e$B!w\e(B") ("A" "\e$B#A\e(B") ("B" "\e$B#B\e(B") ("C" "\e$B#C\e(B")
+("D" "\e$B#D\e(B") ("E" "\e$B#E\e(B") ("F" "\e$B#F\e(B") ("G" "\e$B#G\e(B")
+("H" "\e$B#H\e(B") ("I" "\e$B#I\e(B") ("J" "\e$B#J\e(B") ("K" "\e$B#K\e(B")
+("L" "\e$B#L\e(B") ("M" "\e$B#M\e(B") ("N" "\e$B#N\e(B") ("O" "\e$B#O\e(B")
+("P" "\e$B#P\e(B") ("Q" "\e$B#Q\e(B") ("R" "\e$B#R\e(B") ("S" "\e$B#S\e(B")
+("T" "\e$B#T\e(B") ("U" "\e$B#U\e(B") ("V" "\e$B#V\e(B") ("W" "\e$B#W\e(B")
+("X" "\e$B#X\e(B") ("Y" "\e$B#Y\e(B") ("Z" "\e$B#Z\e(B") ("[" "\e$B!N\e(B")
+("\\" "\e$B!o\e(B") ("]" "\e$B!O\e(B") ("^" "\e$B!0\e(B") ("_" "\e$B!2\e(B")
+("`" "\e$B!F\e(B") ("a" "\e$B#a\e(B") ("b" "\e$B#b\e(B") ("c" "\e$B#c\e(B")
+("d" "\e$B#d\e(B") ("e" "\e$B#e\e(B") ("f" "\e$B#f\e(B") ("g" "\e$B#g\e(B")
+("h" "\e$B#h\e(B") ("i" "\e$B#i\e(B") ("j" "\e$B#j\e(B") ("k" "\e$B#k\e(B")
+("l" "\e$B#l\e(B") ("m" "\e$B#m\e(B") ("n" "\e$B#n\e(B") ("o" "\e$B#o\e(B")
+("p" "\e$B#p\e(B") ("q" "\e$B#q\e(B") ("r" "\e$B#r\e(B") ("s" "\e$B#s\e(B")
+("t" "\e$B#t\e(B") ("u" "\e$B#u\e(B") ("v" "\e$B#v\e(B") ("w" "\e$B#w\e(B")
+("x" "\e$B#x\e(B") ("y" "\e$B#y\e(B") ("z" "\e$B#z\e(B") ("{" "\e$B!P\e(B")
+("|" "\e$B!C\e(B") ("}" "\e$B!Q\e(B") ("~" "\e$B!A\e(B")
+
+("qq" quail-japanese-switch-package)
+("qh" quail-japanese-switch-package)
+)
+
+(defun quail-japanese-hankaku-update-translation (control-flag)
+ (setq control-flag
+ (quail-japanese-update-translation control-flag))
+ (if (or (and (stringp quail-current-str)
+ (> (length quail-current-str) 0))
+ (integerp quail-current-str))
+ (setq quail-current-str (japanese-hankaku quail-current-str)))
+ control-flag)
+
+(quail-define-package
+ "japanese-hankaku-kana"
+ "Japanese" "\e(I1\e(B"
+ nil
+ "Japanese hankaku katakana input method by Roman transliteration.
+---- Special key bindings ----
+qq: toggle between this input method and the input method `japanese-ascii'.
+"
+ nil t t nil nil nil nil nil
+ 'quail-japanese-hankaku-update-translation)
+
+(dolist (elt quail-japanese-transliteration-rules)
+ (quail-defrule (car elt)
+ (let ((trans (nth 1 elt)))
+ (when (or (stringp trans) (vectorp trans))
+ (let ((s (japanese-hankaku (if (stringp trans)
+ trans
+ (aref trans 0)))))
+ ;; If the result of the conversion is a string
+ ;; containing more than one character, make the
+ ;; result a vector, so that quail-defrule
+ ;; recognizes the whole string is the
+ ;; translation, instead of interpreting
+ ;; individual characters as alternative
+ ;; translations.
+ (if (and (stringp s) (> (length s) 1))
+ (setq trans (vector s))
+ (setq trans s))))
+ trans)))
+
+(quail-define-package
+ "japanese-hiragana" "Japanese" "\e$B$"\e(B"
+ nil
+ "Japanese hiragana input method by Roman transliteration."
+ nil t t nil nil nil nil nil
+ 'quail-japanese-update-translation)
+
+;; Use the same map as that of `japanese'.
+(setcar (cdr (cdr quail-current-package))
+ (nth 2 (assoc "japanese" quail-package-alist)))
+
+;; Update Quail translation region while converting Hiragana to Katakana.
+(defun quail-japanese-katakana-update-translation (control-flag)
+ (setq control-flag
+ (quail-japanese-update-translation control-flag))
+ (if (or (and (stringp quail-current-str)
+ (> (length quail-current-str) 0))
+ (integerp quail-current-str))
+ (setq quail-current-str (japanese-katakana quail-current-str)))
+ control-flag)
+
+(quail-define-package
+ "japanese-katakana" "Japanese" "\e$B%"\e(B"
+ nil
+ "Japanese katakana input method by Roman transliteration."
+ nil t t nil nil nil nil nil
+ 'quail-japanese-katakana-update-translation)
+
+(dolist (elt quail-japanese-transliteration-rules)
+ (quail-defrule (car elt)
+ (let ((trans (nth 1 elt)))
+ (cond ((stringp trans)
+ (japanese-katakana trans))
+ ((vectorp trans)
+ (vector (japanese-katakana (aref trans 0))))
+ (t trans)))))
+
+;; arch-tag: 47e0bfd4-6ecc-4d01-89a8-d687c5e01ff7
+;;; japanese.el ends here
HCoop / bpt / emacs.git / blobdiff