56 |
(setq unread-command-events |
(setq unread-command-events |
57 |
(list (aref quail-current-key control-flag))))))) |
(list (aref quail-current-key control-flag))))))) |
58 |
control-flag) |
control-flag) |
59 |
|
|
60 |
;; Convert Hiragana <-> Katakana in the current translation region. |
;; Convert Hiragana <-> Katakana in the current translation region. |
61 |
(defun quail-japanese-toggle-kana () |
(defun quail-japanese-toggle-kana () |
62 |
(interactive) |
(interactive) |
139 |
("ra" "$B$i(B") ("ri" "$B$j(B") ("ru" "$B$k(B") ("re" "$B$l(B") ("ro" "$B$m(B") |
("ra" "$B$i(B") ("ri" "$B$j(B") ("ru" "$B$k(B") ("re" "$B$l(B") ("ro" "$B$m(B") |
140 |
("la" "$B$i(B") ("li" "$B$j(B") ("lu" "$B$k(B") ("le" "$B$l(B") ("lo" "$B$m(B") |
("la" "$B$i(B") ("li" "$B$j(B") ("lu" "$B$k(B") ("le" "$B$l(B") ("lo" "$B$m(B") |
141 |
("wa" "$B$o(B") ("wi" "$B$p(B") ("wu" "$B$&(B") ("we" "$B$q(B") ("wo" "$B$r(B") |
("wa" "$B$o(B") ("wi" "$B$p(B") ("wu" "$B$&(B") ("we" "$B$q(B") ("wo" "$B$r(B") |
142 |
("n'" "$B$s(B") |
("n'" "$B$s(B") |
143 |
("ga" "$B$,(B") ("gi" "$B$.(B") ("gu" "$B$0(B") ("ge" "$B$2(B") ("go" "$B$4(B") |
("ga" "$B$,(B") ("gi" "$B$.(B") ("gu" "$B$0(B") ("ge" "$B$2(B") ("go" "$B$4(B") |
144 |
("za" "$B$6(B") ("zi" "$B$8(B") ("zu" "$B$:(B") ("ze" "$B$<(B") ("zo" "$B$>(B") |
("za" "$B$6(B") ("zi" "$B$8(B") ("zu" "$B$:(B") ("ze" "$B$<(B") ("zo" "$B$>(B") |
145 |
("da" "$B$@(B") ("di" "$B$B(B") ("du" "$B$E(B") ("de" "$B$G(B") ("do" "$B$I(B") |
("da" "$B$@(B") ("di" "$B$B(B") ("du" "$B$E(B") ("de" "$B$G(B") ("do" "$B$I(B") |
461 |
("p" "$B#p(B") ("q" "$B#q(B") ("r" "$B#r(B") ("s" "$B#s(B") |
("p" "$B#p(B") ("q" "$B#q(B") ("r" "$B#r(B") ("s" "$B#s(B") |
462 |
("t" "$B#t(B") ("u" "$B#u(B") ("v" "$B#v(B") ("w" "$B#w(B") |
("t" "$B#t(B") ("u" "$B#u(B") ("v" "$B#v(B") ("w" "$B#w(B") |
463 |
("x" "$B#x(B") ("y" "$B#y(B") ("z" "$B#z(B") ("{" "$B!P(B") |
("x" "$B#x(B") ("y" "$B#y(B") ("z" "$B#z(B") ("{" "$B!P(B") |
464 |
("|" "$B!C(B") ("}" "$B!Q(B") ("~" "$B!A(B") |
("|" "$B!C(B") ("}" "$B!Q(B") ("~" "$B!A(B") |
465 |
|
|
466 |
("qq" quail-japanese-switch-package) |
("qq" quail-japanese-switch-package) |
467 |
("qh" quail-japanese-switch-package) |
("qh" quail-japanese-switch-package) |
527 |
(setq quail-current-str (japanese-katakana quail-current-str))) |
(setq quail-current-str (japanese-katakana quail-current-str))) |
528 |
control-flag) |
control-flag) |
529 |
|
|
530 |
(quail-define-package |
(quail-define-package |
531 |
"japanese-katakana" "Japanese" "$B%"(B" |
"japanese-katakana" "Japanese" "$B%"(B" |
532 |
nil |
nil |
533 |
"Japanese katakana input method by Roman transliteration." |
"Japanese katakana input method by Roman transliteration." |