annotate leim/quail/japanese.el @ 30878:13a1a0ec31e5

(grep): Provide a default set of files. (next-error): Docstring fix. (compilation-find-file): Avoid find-file (fails in a dedicated window).
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 16 Aug 2000 20:20:43 +0000
parents 0f70c0c64a49
children 57911faddb37
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
1 ;;; quail/japanese.el --- Quail package for inputting Japanese
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
2
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
3 ;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
4 ;; Licensed to the Free Software Foundation.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
5
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
6 ;; Keywords: multilingual, input method, Japanese
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
7
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
8 ;; This file is part of GNU Emacs.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
9
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
10 ;; GNU Emacs is free software; you can redistribute it and/or modify
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
11 ;; it under the terms of the GNU General Public License as published by
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
12 ;; the Free Software Foundation; either version 2, or (at your option)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
13 ;; any later version.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
14
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
15 ;; GNU Emacs is distributed in the hope that it will be useful,
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
18 ;; GNU General Public License for more details.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
19
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
20 ;; You should have received a copy of the GNU General Public License
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
21 ;; along with GNU Emacs; see the file COPYING. If not, write to the
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
22 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
23 ;; Boston, MA 02111-1307, USA.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
24
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
25 ;;; Code:
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
26
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
27 (require 'quail)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
28 (require 'kkc)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
29
22922
dc1913c204c9 (quail-japanese-use-double-n): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22817
diff changeset
30 (defvar quail-japanese-use-double-n nil
dc1913c204c9 (quail-japanese-use-double-n): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22817
diff changeset
31 "If non-nil, use type \"nn\" to insert $B$s(B.")
dc1913c204c9 (quail-japanese-use-double-n): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22817
diff changeset
32
19411
ae9924361448 (quail-japanese-toggle-kana): Don't call
Kenichi Handa <handa@m17n.org>
parents: 18804
diff changeset
33 ;; Update Quail translation region while considering Japanese bizarre
ae9924361448 (quail-japanese-toggle-kana): Don't call
Kenichi Handa <handa@m17n.org>
parents: 18804
diff changeset
34 ;; translation rules.
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
35 (defun quail-japanese-update-translation (control-flag)
22922
dc1913c204c9 (quail-japanese-use-double-n): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22817
diff changeset
36 (if (null control-flag)
dc1913c204c9 (quail-japanese-use-double-n): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22817
diff changeset
37 (setq quail-current-str
dc1913c204c9 (quail-japanese-use-double-n): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22817
diff changeset
38 (if (/= (aref quail-current-key 0) ?q)
dc1913c204c9 (quail-japanese-use-double-n): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22817
diff changeset
39 (or quail-current-str quail-current-key)
dc1913c204c9 (quail-japanese-use-double-n): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22817
diff changeset
40 ""))
dc1913c204c9 (quail-japanese-use-double-n): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22817
diff changeset
41 (if (integerp control-flag)
dc1913c204c9 (quail-japanese-use-double-n): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22817
diff changeset
42 (if (= control-flag 0)
dc1913c204c9 (quail-japanese-use-double-n): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22817
diff changeset
43 (setq quail-current-str (aref quail-current-key 0))
dc1913c204c9 (quail-japanese-use-double-n): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22817
diff changeset
44 (cond ((= (aref quail-current-key 0) ?n)
dc1913c204c9 (quail-japanese-use-double-n): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22817
diff changeset
45 (setq quail-current-str ?$B$s(B)
dc1913c204c9 (quail-japanese-use-double-n): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22817
diff changeset
46 (if (and quail-japanese-use-double-n
dc1913c204c9 (quail-japanese-use-double-n): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22817
diff changeset
47 (= (aref quail-current-key 1) ?n))
dc1913c204c9 (quail-japanese-use-double-n): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22817
diff changeset
48 (setq control-flag t)))
dc1913c204c9 (quail-japanese-use-double-n): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22817
diff changeset
49 ((= (aref quail-current-key 0) (aref quail-current-key 1))
dc1913c204c9 (quail-japanese-use-double-n): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22817
diff changeset
50 (setq quail-current-str ?$B$C(B))
dc1913c204c9 (quail-japanese-use-double-n): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22817
diff changeset
51 (t
dc1913c204c9 (quail-japanese-use-double-n): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22817
diff changeset
52 (setq quail-current-str (aref quail-current-key 0))))
dc1913c204c9 (quail-japanese-use-double-n): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22817
diff changeset
53 (if (integerp control-flag)
dc1913c204c9 (quail-japanese-use-double-n): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22817
diff changeset
54 (setq unread-command-events
dc1913c204c9 (quail-japanese-use-double-n): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22817
diff changeset
55 (list (aref quail-current-key control-flag)))))))
dc1913c204c9 (quail-japanese-use-double-n): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22817
diff changeset
56 control-flag)
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
57
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
58 ;; Flag to control the behavior of `quail-japanese-toggle-kana'.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
59 (defvar quail-japanese-kana-state nil)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
60 (make-variable-buffer-local 'quail-japanese-kana-state)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
61
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
62 ;; Convert Hiragana <-> Katakana in the current translation region.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
63 (defun quail-japanese-toggle-kana ()
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
64 (interactive)
22781
d7ebc53b6b16 (quail-japanese-update-translation): Handle
Kenichi Handa <handa@m17n.org>
parents: 22767
diff changeset
65 (setq quail-translating nil)
19411
ae9924361448 (quail-japanese-toggle-kana): Don't call
Kenichi Handa <handa@m17n.org>
parents: 18804
diff changeset
66 (let ((start (overlay-start quail-conv-overlay))
ae9924361448 (quail-japanese-toggle-kana): Don't call
Kenichi Handa <handa@m17n.org>
parents: 18804
diff changeset
67 (end (overlay-end quail-conv-overlay)))
ae9924361448 (quail-japanese-toggle-kana): Don't call
Kenichi Handa <handa@m17n.org>
parents: 18804
diff changeset
68 (setq quail-japanese-kana-state
ae9924361448 (quail-japanese-toggle-kana): Don't call
Kenichi Handa <handa@m17n.org>
parents: 18804
diff changeset
69 (if (eq last-command this-command)
ae9924361448 (quail-japanese-toggle-kana): Don't call
Kenichi Handa <handa@m17n.org>
parents: 18804
diff changeset
70 (not quail-japanese-kana-state)))
ae9924361448 (quail-japanese-toggle-kana): Don't call
Kenichi Handa <handa@m17n.org>
parents: 18804
diff changeset
71 (if quail-japanese-kana-state
ae9924361448 (quail-japanese-toggle-kana): Don't call
Kenichi Handa <handa@m17n.org>
parents: 18804
diff changeset
72 (japanese-hiragana-region start end)
22922
dc1913c204c9 (quail-japanese-use-double-n): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22817
diff changeset
73 (japanese-katakana-region start end))
dc1913c204c9 (quail-japanese-use-double-n): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22817
diff changeset
74 (setq quail-conversion-str
dc1913c204c9 (quail-japanese-use-double-n): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22817
diff changeset
75 (buffer-substring (overlay-start quail-conv-overlay)
dc1913c204c9 (quail-japanese-use-double-n): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22817
diff changeset
76 (overlay-end quail-conv-overlay)))))
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
77
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
78 ;; Convert Hiragana in the current translation region to Kanji by KKC
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
79 ;; (Kana Kanji Converter) utility.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
80 (defun quail-japanese-kanji-kkc ()
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
81 (interactive)
19411
ae9924361448 (quail-japanese-toggle-kana): Don't call
Kenichi Handa <handa@m17n.org>
parents: 18804
diff changeset
82 (let ((from (overlay-start quail-conv-overlay))
24067
89706001ab78 (quail-japanese-kanji-kkc): If the last char
Kenichi Handa <handa@m17n.org>
parents: 23316
diff changeset
83 (to (overlay-end quail-conv-overlay)))
19411
ae9924361448 (quail-japanese-toggle-kana): Don't call
Kenichi Handa <handa@m17n.org>
parents: 18804
diff changeset
84 (quail-delete-overlays)
24067
89706001ab78 (quail-japanese-kanji-kkc): If the last char
Kenichi Handa <handa@m17n.org>
parents: 23316
diff changeset
85 (setq quail-current-str nil)
89706001ab78 (quail-japanese-kanji-kkc): If the last char
Kenichi Handa <handa@m17n.org>
parents: 23316
diff changeset
86 (when (= (char-before to) ?n)
89706001ab78 (quail-japanese-kanji-kkc): If the last char
Kenichi Handa <handa@m17n.org>
parents: 23316
diff changeset
87 ;; The last char is `n'. We had better convert it to `$B$s(B'
89706001ab78 (quail-japanese-kanji-kkc): If the last char
Kenichi Handa <handa@m17n.org>
parents: 23316
diff changeset
88 ;; before kana-kanji conversion.
89706001ab78 (quail-japanese-kanji-kkc): If the last char
Kenichi Handa <handa@m17n.org>
parents: 23316
diff changeset
89 (goto-char to)
89706001ab78 (quail-japanese-kanji-kkc): If the last char
Kenichi Handa <handa@m17n.org>
parents: 23316
diff changeset
90 (delete-char -1)
89706001ab78 (quail-japanese-kanji-kkc): If the last char
Kenichi Handa <handa@m17n.org>
parents: 23316
diff changeset
91 (insert ?$B$s(B))
22767
5fb5debece56 (quail-japanese-kanji-kkc): Adjusted for the change of quail.el.
Kenichi Handa <handa@m17n.org>
parents: 19517
diff changeset
92 (let ((result (kkc-region from to)))
22795
b8d669900d55 (quail-japanese-kanji-kkc): Handle the case
Kenichi Handa <handa@m17n.org>
parents: 22781
diff changeset
93 (move-overlay quail-conv-overlay from (point))
22922
dc1913c204c9 (quail-japanese-use-double-n): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22817
diff changeset
94 (setq quail-conversion-str (buffer-substring from (point)))
22795
b8d669900d55 (quail-japanese-kanji-kkc): Handle the case
Kenichi Handa <handa@m17n.org>
parents: 22781
diff changeset
95 (if (= (+ from result) (point))
22817
5db5f80240c4 (quail-japanese-kanji-kkc): Set
Kenichi Handa <handa@m17n.org>
parents: 22795
diff changeset
96 (setq quail-converting nil))
5db5f80240c4 (quail-japanese-kanji-kkc): Set
Kenichi Handa <handa@m17n.org>
parents: 22795
diff changeset
97 (setq quail-translating nil))))
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
98
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
99 (defun quail-japanese-self-insert-and-switch-to-alpha (key idx)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
100 (quail-delete-region)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
101 (setq unread-command-events (list (aref key (1- idx))))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
102 (quail-japanese-switch-package "q" 1))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
103
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
104 (defvar quail-japanese-switch-table
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
105 '((?z . "japanese-zenkaku")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
106 (?k . "japanese-hankaku-kana")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
107 (?h . "japanese")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
108 (?q . ("japanese-ascii"))))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
109
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
110 (defvar quail-japanese-package-saved nil)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
111 (make-variable-buffer-local 'quail-japanese-package-saved)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
112 (put 'quail-japanese-package-saved 'permanent-local t)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
113
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
114 (defun quail-japanese-switch-package (key idx)
22795
b8d669900d55 (quail-japanese-kanji-kkc): Handle the case
Kenichi Handa <handa@m17n.org>
parents: 22781
diff changeset
115 (quail-delete-region)
22922
dc1913c204c9 (quail-japanese-use-double-n): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22817
diff changeset
116 (setq quail-current-str nil
dc1913c204c9 (quail-japanese-use-double-n): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22817
diff changeset
117 quail-converting nil
dc1913c204c9 (quail-japanese-use-double-n): New variable.
Kenichi Handa <handa@m17n.org>
parents: 22817
diff changeset
118 quail-conversion-str "")
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
119 (let ((pkg (cdr (assq (aref key (1- idx)) quail-japanese-switch-table))))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
120 (if (null pkg)
22767
5fb5debece56 (quail-japanese-kanji-kkc): Adjusted for the change of quail.el.
Kenichi Handa <handa@m17n.org>
parents: 19517
diff changeset
121 (quail-error "No package to be switched")
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
122 (if (stringp pkg)
19411
ae9924361448 (quail-japanese-toggle-kana): Don't call
Kenichi Handa <handa@m17n.org>
parents: 18804
diff changeset
123 (activate-input-method pkg)
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
124 (if (string= (car pkg) current-input-method)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
125 (if quail-japanese-package-saved
19411
ae9924361448 (quail-japanese-toggle-kana): Don't call
Kenichi Handa <handa@m17n.org>
parents: 18804
diff changeset
126 (activate-input-method quail-japanese-package-saved))
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
127 (setq quail-japanese-package-saved current-input-method)
19411
ae9924361448 (quail-japanese-toggle-kana): Don't call
Kenichi Handa <handa@m17n.org>
parents: 18804
diff changeset
128 (activate-input-method (car pkg))))))
ae9924361448 (quail-japanese-toggle-kana): Don't call
Kenichi Handa <handa@m17n.org>
parents: 18804
diff changeset
129 (throw 'quail-tag nil))
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
130
27131
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
131 ;; $B%m!<%^;zF~NO5Z$S2>L>4A;zJQ49$K$h$kF|K\8lF~NO%a%=%C%I(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
132 ;;
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
133 ;; $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(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
134 ;; $B$H!V2>L>4A;zJQ49!W$+$i$J$k!#:G=i$O%m!<%^;z2>L>JQ49$N%9%F!<%8$G!"%9(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
135 ;; $B%Z!<%9%-!<$r2!$9$3$H$K$h$j!"<!$N%9%F!<%8!V2>L>4A;zJQ49!W$X?J$`!#(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
136 ;;
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
137 ;; $B!V%m!<%^;z2>L>JQ49!W(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
138 ;;
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
139 ;; $BJ?2>L>$O>.J8;z%-!<!JNs!K$rBG$D$3$H$K$h$jF~NO!#6gFIE@!"3g8LN`$OBP1~(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
140 ;; $B$9$k1Q;z%-!<$rBG$D$3$H$K$h$jF~NO!#$=$NB>$N%7%s%\%k$O(B `z' $B$KB3$1$F2?(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
141 ;; $B$l$+$N%-!<$rBG$D$3$H$K$h$jF~NO!#2<$KA4$F$N2DG=$J%-!<%7!<%1%s%9%j%9(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
142 ;; $B%H%"%C%W$5$l$F$$$k!#F~NO$5$l$?J8;z$O2<@~$G<($5$l$k!#(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
143 ;;
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
144 ;; $B$5$i$K0J2<$N%-!<$GFCJL$J=hM}$r9T$&!#(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
145 ;;
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
146 ;; K $BJ?2>L>$rJR2>L>$K!"$"$k$$$OJR2>L>$rJ?2>L>$KJQ49(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
147 ;; qq $B$3$NF~NO%a%=%C%I$H(B `japanese-ascii' $BF~NO%a%=%C%I$r%H%0%k@ZBX(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
148 ;; qz `japanese-zenkaku' $BF~NO%a%=%C%I$K%7%U%H(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
149 ;; qh $B$HBG$F$P85$KLa$k(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
150 ;; RET $B8=:_$NF~NOJ8;zNs$r3NDj(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
151 ;; SPC $B2>L>4A;zJQ49$K?J$`(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
152 ;;
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
153 ;; `japanese-ascii' $BF~NO%a%=%C%I$O(B ASCII $BJ8;z$rF~NO$9$k$N$K;H$&!#$3$l(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
154 ;; $B$OF~NO%a%=%C%I$r%*%U$K$9$k$N$H$[$H$s$IF1$8$G$"$k!#0[$J$k$N$O(B qq $B$H(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
155 ;; $BBG$D$3$H$K$h$j!"(B`japanese' $BF~NO%a%=%C%I$KLa$l$kE@$G$"$k!#(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
156 ;;
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
157 ;; `japanese-zenkaku' $BF~NO%a%=%C%I$OA43Q1Q?t;z$rF~NO$9$k$N$K;H$&!#(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
158 ;;
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
159 ;; $B0J2<$K!V%m!<%^;z2>L>JQ49!W%9%F!<%8$G$N%-!<%7!<%1%s%9$r5s$2$k!#(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
160 ;;
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
161 ;; [omitted]
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
162 ;;
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
163 ;; $B!V2>L>4A;zJQ49!W(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
164 ;;
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
165 ;; $B$3$N%9%F!<%8$G$O!"A0%9%F!<%8$GF~NO$5$l$?J8;zNs$r2>L>4A;zJQ49$9$k!#(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
166 ;; $BJQ49$5$l$?J8;zNs$O!"CmL\J8@a!JH?E>I=<(!K$H;D$j$NF~NO!J2<@~I=<(!K$K(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
167 ;; $BJ,$1$i$l$k!#CmL\J8@a$KBP$7$F$O0J2<$N%3%^%s%I$,;H$($k!#(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
168 ;;
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
169 ;; SPC, C-n kkc-next
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
170 ;; $B<!$NJQ498uJd$rI=<((B
30252
5955b64b1637 ("japanese"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents: 27131
diff changeset
171 ;; kkc-show-conversion-list-count $B0J>eB3$1$FBG$F$P!"JQ498uJd%j%9(B
5955b64b1637 ("japanese"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents: 27131
diff changeset
172 ;; $B%H$r%(%3!<%(%j%"$KI=<((B
27131
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
173 ;; C-p kkc-prev
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
174 ;; $BA0$NJQ498uJd$rI=<((B
30252
5955b64b1637 ("japanese"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents: 27131
diff changeset
175 ;; kkc-show-conversion-list-count $B0J>eB3$1$FBG$F$P!"JQ498uJd%j%9(B
5955b64b1637 ("japanese"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents: 27131
diff changeset
176 ;; $B%H$r%(%3!<%(%j%"$KI=<((B
27131
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
177 ;; l kkc-show-conversion-list-or-next-group
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
178 ;; $B:G9b#1#08D$^$G$NJQ498uJd$r%(%3!<%(%j%"$KI=<(!#(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
179 ;; $BB3$1$FBG$?$l$l$P!"<!$N#1#08uJd$rI=<(!#(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
180 ;; L kkc-show-conversion-list-or-prev-group
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
181 ;; $B:G9b#1#08D$^$G$NJQ498uJd$r%(%3!<%(%j%"$KI=<(!#(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
182 ;; $BB3$1$FBG$?$l$l$P!"A0$N#1#08uJd$rI=<(!#(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
183 ;; 0..9 kkc-select-from-list
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
184 ;; $BBG$?$l$??t;z$NJQ498uJd$rA*Br(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
185 ;; H kkc-hiragana
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
186 ;; $BCmL\J8@a$rJ?2>L>$KJQ49(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
187 ;; K kkc-katakana
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
188 ;; $BCmL\J8@a$rJR2>L>$KJQ49(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
189 ;; C-o kkc-longer
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
190 ;; $BCmL\J8@a$r8e$m$K0lJ8;z?-$P$9(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
191 ;; C-i kkc-shorter
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
192 ;; $BCmL\J8@a$r8e$m$+$i0lJ8;z=L$a$k(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
193 ;; C-f kkc-next-phrase
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
194 ;; $BCmL\J8@a$r3NDj$5$;$k!#$b$7;D$j$NF~NO$,$^$@$"$l$P!":G=i$NJ8@a$r(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
195 ;; $BA*Br$7!"$=$l$rCmL\J8@a$H$7!"$=$N:G=i$NJQ498uJd$rI=<($9$k!#(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
196 ;; DEL, C-c kkc-cancel
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
197 ;; $B2>L>4A;zJQ49$r%-%c%s%;%k$7!"%m!<%^;z2>L>JQ49$N%9%F!<%8$KLa$k!#(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
198 ;; return kkc-terminate
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
199 ;; $BA4J8@a$r3NDj$5$;$k!#(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
200 ;; C-SPC, C-@ kkc-first-char-only
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
201 ;; $B:G=i$NJ8;z$r3NDj$5$;!";D$j$O:o=|$9$k!#(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
202 ;; C-h kkc-help
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
203 ;; $B$3$l$i$N%-!<%P%$%s%I$N%j%9%H$rI=<($9$k!#$"(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
204
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
205 (quail-define-package
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
206 "japanese" "Japanese" "A$B$"(B"
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
207 nil
27131
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
208 "Japanese input method using Roman transliteration and Kana-Kanji conversion.
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
209
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
210 When you use this input method, text entry proceeds in two stages:
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
211 Roman-Kana transliteration and Kana-Kanji conversion. When you start
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
212 to enter text, you are in the first stage, Roman-Kana transliteration.
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
213 Type SPC to proceed to the next stage, Kana-Kanji conversion.
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
214
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
215 :: Roman-Kana transliteration ::
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
216
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
217 You can input any Hiragana character as a sequence of lower-case
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
218 letters, Japanese punctuation characters by typing punctuation keys,
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
219 Japanese symbols by typing `z' followed by another key. See below for
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
220 a list of all available sequences. The characters you input are
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
221 underlined.
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
222
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
223 In addition, the following keys provide special effects:
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
224
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
225 K Change Hiragana to Katakana or Katakana to Hiragana.
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
226 qq Toggle between this input method and the `japanese-ascii' input method.
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
227 qz Shift to the `japanese-zenkaku' input method.
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
228 Typing \"qh\" will put you back to this input method.
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
229 RET Accept the current character sequence.
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
230 SPC Proceed to the next stage, Kana-Kanji conversion.
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
231
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
232 The `japanese-ascii' input method is used to enter ASCII characters.
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
233 This is almost the same as turning off the input method. The only
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
234 difference is that typing `qq' will put you back into the Japanese
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
235 input method.
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
236
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
237 The `japanese-zenkaku' input methods is used to enter full width
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
238 JISX0208 characters corresponding to typed ASCII characters.
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
239
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
240 Here's a list of key sequences for Roman-Kana transliteration.
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
241
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
242 a $B$"(B i $B$$(B u $B$&(B e $B$((B o $B$*(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
243 ka $B$+(B ki $B$-(B ku $B$/(B ke $B$1(B ko $B$3(B ga $B$,(B gi $B$.(B gu $B$0(B ge $B$2(B go $B$4(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
244 sa $B$5(B si $B$7(B su $B$9(B se $B$;(B so $B$=(B za $B$6(B zi $B$8(B zu $B$:(B ze $B$<(B zo $B$>(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
245 ta $B$?(B ti $B$A(B tu $B$D(B te $B$F(B to $B$H(B da $B$@(B di $B$B(B du $B$E(B de $B$G(B do $B$I(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
246 na $B$J(B ni $B$K(B nu $B$L(B ne $B$M(B no $B$N(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
247 ha $B$O(B hi $B$R(B hu $B$U(B he $B$X(B ho $B$[(B ba $B$P(B bi $B$S(B bu $B$V(B be $B$Y(B bo $B$\(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
248 ma $B$^(B mi $B$_(B mu $B$`(B me $B$a(B mo $B$b(B pa $B$Q(B pi $B$T(B pu $B$W(B pe $B$Z(B po $B$](B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
249 ya $B$d(B yu $B$f(B yo $B$h(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
250 ra $B$i(B ri $B$j(B ru $B$k(B re $B$l(B ro $B$m(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
251 la $B$i(B li $B$j(B lu $B$k(B le $B$l(B lo $B$m(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
252 wa $B$o(B wi $B$p(B wu $B$&(B we $B$q(B wo $B$r(B n' $B$s(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
253
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
254 kya $B$-$c(B kyu $B$-$e(B kye $B$-$'(B kyo $B$-$g(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
255 sha $B$7$c(B shu $B$7$e(B she $B$7$'(B sho $B$7$g(B sya $B$7$c(B syu $B$7$e(B sye $B$7$'(B syo $B$7$g(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
256 cha $B$A$c(B chu $B$A$e(B che $B$A$'(B cho $B$A$g(B tya $B$A$c(B tyu $B$A$e(B tye $B$A$'(B tyo $B$A$g(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
257 nya $B$K$c(B nyu $B$K$e(B nye $B$K$'(B nyo $B$K$g(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
258 hya $B$R$c(B hyu $B$R$e(B hye $B$R$'(B hyo $B$R$g(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
259 mya $B$_$c(B myu $B$_$e(B mye $B$_$'(B myo $B$_$g(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
260 rya $B$j$c(B ryu $B$j$e(B rye $B$j$'(B ryo $B$j$g(B lya $B$j$c(B lyu $B$j$e(B lye $B$j$'(B lyo $B$j$g(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
261 gya $B$.$c(B gyu $B$.$e(B gye $B$.$'(B gyo $B$.$g(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
262 zya $B$8$c(B zyu $B$8$e(B zye $B$8$'(B zyo $B$8$g(B jya $B$8$c(B jyu $B$8$e(B jye $B$8$'(B jyo $B$8$g(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
263 ja $B$8$c(B ju $B$8$e(B je $B$8$'(B jo $B$8$g(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
264 bya $B$S$c(B byu $B$S$e(B bye $B$S$'(B byo $B$S$g(B pya $B$T$c(B pyu $B$T$e(B pye $B$T$'(B pyo $B$T$g(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
265
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
266 kwa $B$/$n(B kwi $B$/$#(B kwe $B$/$'(B kwo $B$/$)(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
267 tsa $B$D$!(B tsi $B$D$#(B tse $B$D$'(B tso $B$D$)(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
268 fa $B$U$!(B fi $B$U$#(B fe $B$U$'(B fo $B$U$)(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
269 gwa $B$0$n(B gwi $B$0$#(B gwe $B$0$'(B gwo $B$0$)(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
270 dyi $B$G$#(B dyu $B$I$%(B dye $B$G$'(B dyo $B$I$)(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
271
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
272 shi $B$7(B tyi $B$F$#(B chi $B$A(B tsu $B$D(B ji $B$8(B fu $B$U(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
273 xwi $B$&$#(B xwe $B$&$'(B xwo $B$&$)(B ye $B$$$'(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
274
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
275 va $B%t$!(B vi $B%t$#(B vu $B%t(B ve $B%t$'(B vo $B%t$)(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
276
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
277 xa $B$!(B xi $B$#(B xu $B$%(B xe $B$'(B xo $B$)(B xtu $B$C(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
278 xya $B$c(B xyu $B$e(B xyo $B$g(B xwa $B$n(B xka $B%u(B xke $B%v(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
279
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
280 Digists and punctuations:
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
281
30264
0f70c0c64a49 ("japanese"): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents: 30253
diff changeset
282 key: 1 2 3 4 5 6 7 8 9 0 - = \\ ` ! @ # $ % ^ & * ( ) _ + | ~
27131
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
283 char: $B#1#2#3#4#5#6#7#8#9#0!<!a!o!.!*!w!t!p!s!0!u!v!J!K!2!\!C!1(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
284
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
285 key: [ ] { } ; ' : \" , . / < > ?
30264
0f70c0c64a49 ("japanese"): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents: 30253
diff changeset
286 char: $B!V!W!P!Q!(!G!'!I!"!#!?!c!d!)(B
27131
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
287
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
288 Symbols (`z' followed by these keys):
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
289
30264
0f70c0c64a49 ("japanese"): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents: 30253
diff changeset
290 Key: 1 2 3 4 5 6 7 8 9 0 - = \\ ` ! @ # $ % ^ & * ( ) _ + | ~
27131
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
291 char: $B!{"&"$""!~!y!}!q!i!j!A!b!@!-!|"'"%"#"!!z!r!_!Z![!h!^!B!/(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
292
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
293 Key: [ ] { } ; ' : \" , . / < > ?
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
294 char: $B!X!Y!L!M!+!F!,!H!E!D!&!e!f!g(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
295
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
296 Key: b c d f g h j k l m n p q r s t v w B C D F G M N P Q R S T V W
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
297 char: $B!k!;!5!7!>"+"-","*!m!l")!T!9!3!:"(!U"+!n!6"*!="."-",!R!8!4!x!`!S(B
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
298
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
299 Key: x X
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
300 str: :- :-)
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
301
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
302 :: Kana-Kanji conversion ::
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
303
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
304 You can convert the current Japanese characters (underlined) to
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
305 Kana-Kanji mixed text. In this stage, the converted text is divided
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
306 into two parts, the current phrase (highlighted) and the remaining
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
307 input (underlined). The following commands can be used on the
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
308 current phrase.
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
309
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
310 SPC, C-n kkc-next
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
311 Show the next candidate for the current phrase.
30253
4e276b9c8239 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 30252
diff changeset
312 If successively typed `kkc-show-conversion-list-count' times,
30252
5955b64b1637 ("japanese"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents: 27131
diff changeset
313 conversion candidates are shown in the echo area.
27131
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
314 C-p kkc-prev
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
315 Show the previous candidate for the current phrase.
30253
4e276b9c8239 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 30252
diff changeset
316 If successively typed `kkc-show-conversion-list-count' times,
30252
5955b64b1637 ("japanese"): Docstring modified.
Kenichi Handa <handa@m17n.org>
parents: 27131
diff changeset
317 conversion candidates are shown in the echo area.
27131
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
318 l kkc-show-conversion-list-or-next-group
30264
0f70c0c64a49 ("japanese"): Fix docstring.
Kenichi Handa <handa@m17n.org>
parents: 30253
diff changeset
319 Show at most 10 candidates for the current phrase in echo area.
27131
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
320 If typed repeatedly, show the next 10 candidates.
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
321 L kkc-show-conversion-list-or-prev-group
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
322 Show at most 10 candidates for the current phrase in echo area.
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
323 If typed repeatedly, show the previous 10 candidates.
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
324 0..9 kkc-select-from-list
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
325 Select a candidate corresponding to the typed number.
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
326 H kkc-hiragana
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
327 Convert the current phrase to Hiragana
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
328 K kkc-katakana
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
329 Convert the current phrase to Katakana
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
330 C-o kkc-longer
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
331 Extend the current phrase; pull in the first character of
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
332 the remaining input.
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
333 C-i kkc-shorter
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
334 Contract the current phrase; drop its last character
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
335 back into the remaining input.
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
336 C-f kkc-next-phrase
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
337 Accept the current phrase. If there remains input, select
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
338 the first phrase as the current one, and show the first
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
339 candidate for the conversion.
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
340 DEL, C-c kkc-cancel
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
341 Cancel the conversion, shift back to the Roman-Kana
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
342 transliteration.
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
343 return kkc-terminate
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
344 Accept the whole conversion.
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
345 C-SPC, C-@ kkc-first-char-only
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
346 Accept the first character of the current conversion,
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
347 delete the remaining input.
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
348 C-h kkc-help
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
349 List these key bindings.
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
350 "
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
351 nil t t nil nil nil nil nil
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
352 'quail-japanese-update-translation
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
353 '(("K" . quail-japanese-toggle-kana)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
354 (" " . quail-japanese-kanji-kkc)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
355 ("\C-m" . quail-no-conversion)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
356 ([return] . quail-no-conversion))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
357 )
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
358
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
359 (quail-define-rules
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
360
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
361 ( "a" "$B$"(B") ( "i" "$B$$(B") ( "u" "$B$&(B") ( "e" "$B$((B") ( "o" "$B$*(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
362 ("ka" "$B$+(B") ("ki" "$B$-(B") ("ku" "$B$/(B") ("ke" "$B$1(B") ("ko" "$B$3(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
363 ("sa" "$B$5(B") ("si" "$B$7(B") ("su" "$B$9(B") ("se" "$B$;(B") ("so" "$B$=(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
364 ("ta" "$B$?(B") ("ti" "$B$A(B") ("tu" "$B$D(B") ("te" "$B$F(B") ("to" "$B$H(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
365 ("na" "$B$J(B") ("ni" "$B$K(B") ("nu" "$B$L(B") ("ne" "$B$M(B") ("no" "$B$N(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
366 ("ha" "$B$O(B") ("hi" "$B$R(B") ("hu" "$B$U(B") ("he" "$B$X(B") ("ho" "$B$[(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
367 ("ma" "$B$^(B") ("mi" "$B$_(B") ("mu" "$B$`(B") ("me" "$B$a(B") ("mo" "$B$b(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
368 ("ya" "$B$d(B") ("yu" "$B$f(B") ("yo" "$B$h(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
369 ("ra" "$B$i(B") ("ri" "$B$j(B") ("ru" "$B$k(B") ("re" "$B$l(B") ("ro" "$B$m(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
370 ("la" "$B$i(B") ("li" "$B$j(B") ("lu" "$B$k(B") ("le" "$B$l(B") ("lo" "$B$m(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
371 ("wa" "$B$o(B") ("wi" "$B$p(B") ("wu" "$B$&(B") ("we" "$B$q(B") ("wo" "$B$r(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
372 ("n'" "$B$s(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
373 ("ga" "$B$,(B") ("gi" "$B$.(B") ("gu" "$B$0(B") ("ge" "$B$2(B") ("go" "$B$4(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
374 ("za" "$B$6(B") ("zi" "$B$8(B") ("zu" "$B$:(B") ("ze" "$B$<(B") ("zo" "$B$>(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
375 ("da" "$B$@(B") ("di" "$B$B(B") ("du" "$B$E(B") ("de" "$B$G(B") ("do" "$B$I(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
376 ("ba" "$B$P(B") ("bi" "$B$S(B") ("bu" "$B$V(B") ("be" "$B$Y(B") ("bo" "$B$\(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
377 ("pa" "$B$Q(B") ("pi" "$B$T(B") ("pu" "$B$W(B") ("pe" "$B$Z(B") ("po" "$B$](B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
378
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
379 ("kya" ["$B$-$c(B"]) ("kyu" ["$B$-$e(B"]) ("kye" ["$B$-$'(B"]) ("kyo" ["$B$-$g(B"])
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
380 ("sya" ["$B$7$c(B"]) ("syu" ["$B$7$e(B"]) ("sye" ["$B$7$'(B"]) ("syo" ["$B$7$g(B"])
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
381 ("sha" ["$B$7$c(B"]) ("shu" ["$B$7$e(B"]) ("she" ["$B$7$'(B"]) ("sho" ["$B$7$g(B"])
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
382 ("cha" ["$B$A$c(B"]) ("chu" ["$B$A$e(B"]) ("che" ["$B$A$'(B"]) ("cho" ["$B$A$g(B"])
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
383 ("tya" ["$B$A$c(B"]) ("tyu" ["$B$A$e(B"]) ("tye" ["$B$A$'(B"]) ("tyo" ["$B$A$g(B"])
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
384 ("nya" ["$B$K$c(B"]) ("nyu" ["$B$K$e(B"]) ("nye" ["$B$K$'(B"]) ("nyo" ["$B$K$g(B"])
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
385 ("hya" ["$B$R$c(B"]) ("hyu" ["$B$R$e(B"]) ("hye" ["$B$R$'(B"]) ("hyo" ["$B$R$g(B"])
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
386 ("mya" ["$B$_$c(B"]) ("myu" ["$B$_$e(B"]) ("mye" ["$B$_$'(B"]) ("myo" ["$B$_$g(B"])
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
387 ("rya" ["$B$j$c(B"]) ("ryu" ["$B$j$e(B"]) ("rye" ["$B$j$'(B"]) ("ryo" ["$B$j$g(B"])
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
388 ("lya" ["$B$j$c(B"]) ("lyu" ["$B$j$e(B"]) ("lye" ["$B$j$'(B"]) ("lyo" ["$B$j$g(B"])
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
389 ("gya" ["$B$.$c(B"]) ("gyu" ["$B$.$e(B"]) ("gye" ["$B$.$'(B"]) ("gyo" ["$B$.$g(B"])
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
390 ("zya" ["$B$8$c(B"]) ("zyu" ["$B$8$e(B"]) ("zye" ["$B$8$'(B"]) ("zyo" ["$B$8$g(B"])
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
391 ("jya" ["$B$8$c(B"]) ("jyu" ["$B$8$e(B"]) ("jye" ["$B$8$'(B"]) ("jyo" ["$B$8$g(B"])
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
392 ( "ja" ["$B$8$c(B"]) ( "ju" ["$B$8$e(B"]) ( "je" ["$B$8$'(B"]) ( "jo" ["$B$8$g(B"])
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
393 ("bya" ["$B$S$c(B"]) ("byu" ["$B$S$e(B"]) ("bye" ["$B$S$'(B"]) ("byo" ["$B$S$g(B"])
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
394 ("pya" ["$B$T$c(B"]) ("pyu" ["$B$T$e(B"]) ("pye" ["$B$T$'(B"]) ("pyo" ["$B$T$g(B"])
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
395
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
396 ("kwa" ["$B$/$n(B"]) ("kwi" ["$B$/$#(B"]) ("kwe" ["$B$/$'(B"]) ("kwo" ["$B$/$)(B"])
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
397 ("tsa" ["$B$D$!(B"]) ("tsi" ["$B$D$#(B"]) ("tse" ["$B$D$'(B"]) ("tso" ["$B$D$)(B"])
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
398 ( "fa" ["$B$U$!(B"]) ( "fi" ["$B$U$#(B"]) ( "fe" ["$B$U$'(B"]) ( "fo" ["$B$U$)(B"])
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
399 ("gwa" ["$B$0$n(B"]) ("gwi" ["$B$0$#(B"]) ("gwe" ["$B$0$'(B"]) ("gwo" ["$B$0$)(B"])
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
400
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
401 ("dyi" ["$B$G$#(B"]) ("dyu" ["$B$I$%(B"]) ("dye" ["$B$G$'(B"]) ("dyo" ["$B$I$)(B"])
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
402 ("xwi" ["$B$&$#(B"]) ("xwe" ["$B$&$'(B"]) ("xwo" ["$B$&$)(B"])
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
403
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
404 ("shi" "$B$7(B") ("tyi" ["$B$F$#(B"]) ("chi" "$B$A(B") ("tsu" "$B$D(B") ("ji" "$B$8(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
405 ("fu" "$B$U(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
406 ("ye" ["$B$$$'(B"])
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
407
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
408 ("va" ["$B%t$!(B"]) ("vi" ["$B%t$#(B"]) ("vu" "$B%t(B") ("ve" ["$B%t$'(B"]) ("vo" ["$B%t$)(B"])
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
409
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
410 ("xa" "$B$!(B") ("xi" "$B$#(B") ("xu" "$B$%(B") ("xe" "$B$'(B") ("xo" "$B$)(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
411 ("xtu" "$B$C(B") ("xya" "$B$c(B") ("xyu" "$B$e(B") ("xyo" "$B$g(B") ("xwa" "$B$n(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
412 ("xka" "$B%u(B") ("xke" "$B%v(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
413
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
414 ("1" "$B#1(B") ("2" "$B#2(B") ("3" "$B#3(B") ("4" "$B#4(B") ("5" "$B#5(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
415 ("6" "$B#6(B") ("7" "$B#7(B") ("8" "$B#8(B") ("9" "$B#9(B") ("0" "$B#0(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
416
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
417 ("!" "$B!*(B") ("@" "$B!w(B") ("#" "$B!t(B") ("$" "$B!p(B") ("%" "$B!s(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
418 ("^" "$B!0(B") ("&" "$B!u(B") ("*" "$B!v(B") ("(" "$B!J(B") (")" "$B!K(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
419 ("-" "$B!<(B") ("=" "$B!a(B") ("`" "$B!.(B") ("\\" "$B!o(B") ("|" "$B!C(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
420 ("_" "$B!2(B") ("+" "$B!\(B") ("~" "$B!1(B") ("[" "$B!V(B") ("]" "$B!W(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
421 ("{" "$B!P(B") ("}" "$B!Q(B") (":" "$B!'(B") (";" "$B!((B") ("\"" "$B!I(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
422 ("'" "$B!G(B") ("." "$B!#(B") ("," "$B!"(B") ("<" "$B!c(B") (">" "$B!d(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
423 ("?" "$B!)(B") ("/" "$B!?(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
424
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
425 ("z1" "$B!{(B") ("z!" "$B!|(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
426 ("z2" "$B"&(B") ("z@" "$B"'(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
427 ("z3" "$B"$(B") ("z#" "$B"%(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
428 ("z4" "$B""(B") ("z$" "$B"#(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
429 ("z5" "$B!~(B") ("z%" "$B"!(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
430 ("z6" "$B!y(B") ("z^" "$B!z(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
431 ("z7" "$B!}(B") ("z&" "$B!r(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
432 ("z8" "$B!q(B") ("z*" "$B!_(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
433 ("z9" "$B!i(B") ("z(" "$B!Z(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
434 ("z0" "$B!j(B") ("z)" "$B![(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
435 ("z-" "$B!A(B") ("z_" "$B!h(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
436 ("z=" "$B!b(B") ("z+" "$B!^(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
437 ("z\\" "$B!@(B") ("z|" "$B!B(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
438 ("z`" "$B!-(B") ("z~" "$B!/(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
439
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
440 ("zq" "$B!T(B") ("zQ" "$B!R(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
441 ("zw" "$B!U(B") ("zW" "$B!S(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
442 ("zr" "$B!9(B") ("zR" "$B!8(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
443 ("zt" "$B!:(B") ("zT" "$B!x(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
444 ("zp" "$B")(B") ("zP" "$B",(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
445 ("z[" "$B!X(B") ("z{" "$B!L(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
446 ("z]" "$B!Y(B") ("z}" "$B!M(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
447
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
448 ("zs" "$B!3(B") ("zS" "$B!4(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
449 ("zd" "$B!5(B") ("zD" "$B!6(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
450 ("zf" "$B!7(B") ("zF" "$B"*(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
451 ("zg" "$B!>(B") ("zG" "$B!=(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
452 ("zh" "$B"+(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
453 ("zj" "$B"-(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
454 ("zk" "$B",(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
455 ("zl" "$B"*(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
456 ("z;" "$B!+(B") ("z:" "$B!,(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
457 ("z\'" "$B!F(B") ("z\"" "$B!H(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
458
27131
6a56916deed4 ("japanese"): Docstring augmented.
Kenichi Handa <handa@m17n.org>
parents: 24067
diff changeset
459 ("zx" [":-"]) ("zX" [":-)"])
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
460 ("zc" "$B!;(B") ("zC" "$B!n(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
461 ("zv" "$B"((B") ("zV" "$B!`(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
462 ("zb" "$B!k(B") ("zB" "$B"+(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
463 ("zn" "$B!l(B") ("zN" "$B"-(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
464 ("zm" "$B!m(B") ("zM" "$B".(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
465 ("z," "$B!E(B") ("z<" "$B!e(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
466 ("z." "$B!D(B") ("z>" "$B!f(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
467 ("z/" "$B!&(B") ("z?" "$B!g(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
468
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
469 ("\\\\" quail-japanese-self-insert-and-switch-to-alpha)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
470 ("{{" quail-japanese-self-insert-and-switch-to-alpha)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
471 ("}}" quail-japanese-self-insert-and-switch-to-alpha)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
472
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
473 ("qq" quail-japanese-switch-package)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
474 ("qz" quail-japanese-switch-package)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
475
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
476 )
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
477
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
478 (quail-define-package
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
479 "japanese-ascii" "Japanese" "Aa"
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
480 nil
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
481 "Temporary ASCII input mode while using Quail package `japanese'
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
482 Type \"qq\" to go back to previous package."
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
483 nil t t)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
484
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
485 (quail-define-rules ("qq" quail-japanese-switch-package))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
486
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
487 (quail-define-package
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
488 "japanese-zenkaku" "Japanese" "$B#A(B"
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
489 nil
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
490 "Japanese zenkaku alpha numeric character input method
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
491 ---- Special key bindings ----
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
492 qq: toggle between `japanese-zenkaku' and `japanese-ascii'
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
493 qh: use `japanese' package, \"qz\" puts you back to `japanese-zenkaku'
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
494 "
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
495 nil t t)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
496
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
497 (quail-define-rules
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
498
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
499 (" " "$B!!(B") ("!" "$B!*(B") ("\"" "$B!m(B") ("#" "$B!t(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
500 ("$" "$B!p(B") ("%" "$B!s(B") ("&" "$B!u(B") ("'" "$B!l(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
501 ("(" "$B!J(B") (")" "$B!K(B") ("*" "$B!v(B") ("+" "$B!\(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
502 ("," "$B!$(B") ("-" "$B!](B") ("." "$B!%(B") ("/" "$B!?(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
503 ("0" "$B#0(B") ("1" "$B#1(B") ("2" "$B#2(B") ("3" "$B#3(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
504 ("4" "$B#4(B") ("5" "$B#5(B") ("6" "$B#6(B") ("7" "$B#7(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
505 ("8" "$B#8(B") ("9" "$B#9(B") (":" "$B!'(B") (";" "$B!((B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
506 ("<" "$B!c(B") ("=" "$B!a(B") (">" "$B!d(B") ("?" "$B!)(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
507 ("@" "$B!w(B") ("A" "$B#A(B") ("B" "$B#B(B") ("C" "$B#C(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
508 ("D" "$B#D(B") ("E" "$B#E(B") ("F" "$B#F(B") ("G" "$B#G(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
509 ("H" "$B#H(B") ("I" "$B#I(B") ("J" "$B#J(B") ("K" "$B#K(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
510 ("L" "$B#L(B") ("M" "$B#M(B") ("N" "$B#N(B") ("O" "$B#O(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
511 ("P" "$B#P(B") ("Q" "$B#Q(B") ("R" "$B#R(B") ("S" "$B#S(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
512 ("T" "$B#T(B") ("U" "$B#U(B") ("V" "$B#V(B") ("W" "$B#W(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
513 ("X" "$B#X(B") ("Y" "$B#Y(B") ("Z" "$B#Z(B") ("[" "$B!N(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
514 ("\\" "$B!o(B") ("]" "$B!O(B") ("^" "$B!0(B") ("_" "$B!2(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
515 ("`" "$B!F(B") ("a" "$B#a(B") ("b" "$B#b(B") ("c" "$B#c(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
516 ("d" "$B#d(B") ("e" "$B#e(B") ("f" "$B#f(B") ("g" "$B#g(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
517 ("h" "$B#h(B") ("i" "$B#i(B") ("j" "$B#j(B") ("k" "$B#k(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
518 ("l" "$B#l(B") ("m" "$B#m(B") ("n" "$B#n(B") ("o" "$B#o(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
519 ("p" "$B#p(B") ("q" "$B#q(B") ("r" "$B#r(B") ("s" "$B#s(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
520 ("t" "$B#t(B") ("u" "$B#u(B") ("v" "$B#v(B") ("w" "$B#w(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
521 ("x" "$B#x(B") ("y" "$B#y(B") ("z" "$B#z(B") ("{" "$B!P(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
522 ("|" "$B!C(B") ("}" "$B!Q(B") ("~" "$B!A(B")
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
523
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
524 ("qq" quail-japanese-switch-package)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
525 ("qh" quail-japanese-switch-package)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
526 )
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
527
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
528 (defun quail-japanese-hankaku-update-translation (control-flag)
23316
308cd9d90647 (quail-japanese-hankaku-update-translation):
Kenichi Handa <handa@m17n.org>
parents: 23262
diff changeset
529 (setq control-flag
308cd9d90647 (quail-japanese-hankaku-update-translation):
Kenichi Handa <handa@m17n.org>
parents: 23262
diff changeset
530 (quail-japanese-update-translation control-flag))
308cd9d90647 (quail-japanese-hankaku-update-translation):
Kenichi Handa <handa@m17n.org>
parents: 23262
diff changeset
531 (if (or (and (stringp quail-current-str)
308cd9d90647 (quail-japanese-hankaku-update-translation):
Kenichi Handa <handa@m17n.org>
parents: 23262
diff changeset
532 (> (length quail-current-str) 0))
308cd9d90647 (quail-japanese-hankaku-update-translation):
Kenichi Handa <handa@m17n.org>
parents: 23262
diff changeset
533 (integerp quail-current-str))
308cd9d90647 (quail-japanese-hankaku-update-translation):
Kenichi Handa <handa@m17n.org>
parents: 23262
diff changeset
534 (setq quail-current-str (japanese-hankaku quail-current-str)))
308cd9d90647 (quail-japanese-hankaku-update-translation):
Kenichi Handa <handa@m17n.org>
parents: 23262
diff changeset
535 control-flag)
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
536
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
537 (quail-define-package
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
538 "japanese-hankaku-kana"
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
539 "Japanese" "(I1(B"
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
540 nil
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
541 "Japanese hankaku katakana input method by Roman transliteration
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
542 ---- Special key bindings ----
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
543 qq: toggle between `japanese-hankaku-kana' and `japanese-ascii'
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
544 "
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
545 nil t t nil nil nil nil nil
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
546 'quail-japanese-hankaku-update-translation)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
547
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
548 ;; Use the same map as that of `japanese'.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
549 (setcar (cdr (cdr quail-current-package))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
550 (nth 2 (assoc "japanese" quail-package-alist)))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
551
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
552 (quail-define-package
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
553 "japanese-hiragana" "Japanese" "$B$"(B"
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
554 nil
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
555 "Japanese hiragana input method by Roman transliteration"
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
556 nil t t nil nil nil nil nil
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
557 'quail-japanese-update-translation)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
558
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
559 ;; Use the same map as that of `japanese'.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
560 (setcar (cdr (cdr quail-current-package))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
561 (nth 2 (assoc "japanese" quail-package-alist)))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
562
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
563 ;; Update Quail translation region while converting Hiragana to Katakana.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
564 (defun quail-japanese-katakana-update-translation (control-flag)
23262
5d2f6f759380 (quail-japanese-katakana-update-translation):
Kenichi Handa <handa@m17n.org>
parents: 22922
diff changeset
565 (setq control-flag
5d2f6f759380 (quail-japanese-katakana-update-translation):
Kenichi Handa <handa@m17n.org>
parents: 22922
diff changeset
566 (quail-japanese-update-translation control-flag))
5d2f6f759380 (quail-japanese-katakana-update-translation):
Kenichi Handa <handa@m17n.org>
parents: 22922
diff changeset
567 (if (or (and (stringp quail-current-str)
5d2f6f759380 (quail-japanese-katakana-update-translation):
Kenichi Handa <handa@m17n.org>
parents: 22922
diff changeset
568 (> (length quail-current-str) 0))
5d2f6f759380 (quail-japanese-katakana-update-translation):
Kenichi Handa <handa@m17n.org>
parents: 22922
diff changeset
569 (integerp quail-current-str))
5d2f6f759380 (quail-japanese-katakana-update-translation):
Kenichi Handa <handa@m17n.org>
parents: 22922
diff changeset
570 (setq quail-current-str (japanese-katakana quail-current-str)))
5d2f6f759380 (quail-japanese-katakana-update-translation):
Kenichi Handa <handa@m17n.org>
parents: 22922
diff changeset
571 control-flag)
18673
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
572
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
573 (quail-define-package
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
574 "japanese-katakana" "Japanese" "$B%"(B"
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
575 nil
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
576 "Japanese katakana input method by Roman transliteration"
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
577 nil t t nil nil nil nil nil
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
578 'quail-japanese-katakana-update-translation)
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
579
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
580 ;; Use the same map as that of `japanese'.
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
581 (setcar (cdr (cdr quail-current-package))
751941736224 Initial revision
Kenichi Handa <handa@m17n.org>
parents:
diff changeset
582 (nth 2 (assoc "japanese" quail-package-alist)))