/[emacs]/emacs/leim/quail/japanese.el
ViewVC logotype

Diff of /emacs/leim/quail/japanese.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.24 by fx, Sun Nov 4 16:58:25 2001 UTC revision 1.24.4.1 by miles, Fri Apr 4 06:19:54 2003 UTC
# Line 56  Line 56 
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)
# Line 139  Line 139 
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")
# Line 461  qh:    shift to the input method `japanese' Line 461  qh:    shift to the input method `japanese'
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)
# Line 527  qq:    toggle between this input method and Line 527  qq:    toggle between this input method and
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."

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.24.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26