Mercurial > emacs

comparison leim/quail/japanese.el @ 49600:23a1cea22d13

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Trailing whitespace deleted.
author Juanma Barranquero <lekktu@gmail.com>
date Tue, 04 Feb 2003 14:56:31 +0000
parents 890f548046c1
children 695cf19ef79e d7ddb3e565de
comparison
equal deleted inserted replaced
49599:5ade352e8d1c 49600:23a1cea22d13
54 (setq quail-current-str (aref quail-current-key 0)))) 54 (setq quail-current-str (aref quail-current-key 0))))
55 (if (integerp control-flag) 55 (if (integerp control-flag)
56 (setq unread-command-events 56 (setq unread-command-events
57 (list (aref quail-current-key control-flag))))))) 57 (list (aref quail-current-key control-flag)))))))
58 control-flag) 58 control-flag)
59 59
60 ;; Convert Hiragana <-> Katakana in the current translation region. 60 ;; Convert Hiragana <-> Katakana in the current translation region.
61 (defun quail-japanese-toggle-kana () 61 (defun quail-japanese-toggle-kana ()
62 (interactive) 62 (interactive)
63 (setq quail-translating nil) 63 (setq quail-translating nil)
64 (let ((start (overlay-start quail-conv-overlay)) 64 (let ((start (overlay-start quail-conv-overlay))
137 ("ma" "$B$^(B") ("mi" "$B$_(B") ("mu" "$B$`(B") ("me" "$B$a(B") ("mo" "$B$b(B") 137 ("ma" "$B$^(B") ("mi" "$B$_(B") ("mu" "$B$`(B") ("me" "$B$a(B") ("mo" "$B$b(B")
138 ("ya" "$B$d(B") ("yu" "$B$f(B") ("yo" "$B$h(B") 138 ("ya" "$B$d(B") ("yu" "$B$f(B") ("yo" "$B$h(B")
139 ("ra" "$B$i(B") ("ri" "$B$j(B") ("ru" "$B$k(B") ("re" "$B$l(B") ("ro" "$B$m(B") 139 ("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") 140 ("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") 141 ("wa" "$B$o(B") ("wi" "$B$p(B") ("wu" "$B$&(B") ("we" "$B$q(B") ("wo" "$B$r(B")
142 ("n'" "$B$s(B") 142 ("n'" "$B$s(B")
143 ("ga" "$B$,(B") ("gi" "$B$.(B") ("gu" "$B$0(B") ("ge" "$B$2(B") ("go" "$B$4(B") 143 ("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") 144 ("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") 145 ("da" "$B$@(B") ("di" "$B$B(B") ("du" "$B$E(B") ("de" "$B$G(B") ("do" "$B$I(B")
146 ("ba" "$B$P(B") ("bi" "$B$S(B") ("bu" "$B$V(B") ("be" "$B$Y(B") ("bo" "$B$\(B") 146 ("ba" "$B$P(B") ("bi" "$B$S(B") ("bu" "$B$V(B") ("be" "$B$Y(B") ("bo" "$B$\(B")
147 ("pa" "$B$Q(B") ("pi" "$B$T(B") ("pu" "$B$W(B") ("pe" "$B$Z(B") ("po" "$B$](B") 147 ("pa" "$B$Q(B") ("pi" "$B$T(B") ("pu" "$B$W(B") ("pe" "$B$Z(B") ("po" "$B$](B")
459 ("h" "$B#h(B") ("i" "$B#i(B") ("j" "$B#j(B") ("k" "$B#k(B") 459 ("h" "$B#h(B") ("i" "$B#i(B") ("j" "$B#j(B") ("k" "$B#k(B")
460 ("l" "$B#l(B") ("m" "$B#m(B") ("n" "$B#n(B") ("o" "$B#o(B") 460 ("l" "$B#l(B") ("m" "$B#m(B") ("n" "$B#n(B") ("o" "$B#o(B")
461 ("p" "$B#p(B") ("q" "$B#q(B") ("r" "$B#r(B") ("s" "$B#s(B") 461 ("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") 462 ("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") 463 ("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") 464 ("|" "$B!C(B") ("}" "$B!Q(B") ("~" "$B!A(B")
465 465
466 ("qq" quail-japanese-switch-package) 466 ("qq" quail-japanese-switch-package)
467 ("qh" quail-japanese-switch-package) 467 ("qh" quail-japanese-switch-package)
468 ) 468 )
469 469
525 (> (length quail-current-str) 0)) 525 (> (length quail-current-str) 0))
526 (integerp quail-current-str)) 526 (integerp quail-current-str))
527 (setq quail-current-str (japanese-katakana quail-current-str))) 527 (setq quail-current-str (japanese-katakana quail-current-str)))
528 control-flag) 528 control-flag)
529 529
530 (quail-define-package 530 (quail-define-package
531 "japanese-katakana" "Japanese" "$B%"(B" 531 "japanese-katakana" "Japanese" "$B%"(B"
532 nil 532 nil
533 "Japanese katakana input method by Roman transliteration." 533 "Japanese katakana input method by Roman transliteration."
534 nil t t nil nil nil nil nil 534 nil t t nil nil nil nil nil
535 'quail-japanese-katakana-update-translation) 535 'quail-japanese-katakana-update-translation)