[Emacs-diffs] Changes to emacs/leim/quail/japanese.el

[Juanma Barranquero]

Index: emacs/leim/quail/japanese.el
diff -c emacs/leim/quail/japanese.el:1.24 emacs/leim/quail/japanese.el:1.25
*** emacs/leim/quail/japanese.el:1.24   Sun Nov  4 11:58:25 2001
--- emacs/leim/quail/japanese.el        Tue Feb  4 09:43:11 2003
***************
*** 56,62 ****
              (setq unread-command-events
                    (list (aref quail-current-key control-flag)))))))
    control-flag)
!        
  ;; Convert Hiragana <-> Katakana in the current translation region.
  (defun quail-japanese-toggle-kana ()
    (interactive)
--- 56,62 ----
              (setq unread-command-events
                    (list (aref quail-current-key control-flag)))))))
    control-flag)
! 
  ;; Convert Hiragana <-> Katakana in the current translation region.
  (defun quail-japanese-toggle-kana ()
    (interactive)
***************
*** 139,145 ****
      ("ra" "$B$i(B") ("ri" "$B$j(B") ("ru" "$B$k(B") ("re" "$B$l(B") 
("ro" "$B$m(B")
      ("la" "$B$i(B") ("li" "$B$j(B") ("lu" "$B$k(B") ("le" "$B$l(B") 
("lo" "$B$m(B")
      ("wa" "$B$o(B") ("wi" "$B$p(B") ("wu" "$B$&(B") ("we" "$B$q(B") 
("wo" "$B$r(B")
!     ("n'" "$B$s(B")                              
      ("ga" "$B$,(B") ("gi" "$B$.(B") ("gu" "$B$0(B") ("ge" "$B$2(B") 
("go" "$B$4(B")
      ("za" "$B$6(B") ("zi" "$B$8(B") ("zu" "$B$:(B") ("ze" "$B$<(B") 
("zo" "$B$>(B")
      ("da" "address@hidden(B") ("di" "$B$B(B") ("du" "$B$E(B") ("de" 
"$B$G(B") ("do" "$B$I(B")
--- 139,145 ----
      ("ra" "$B$i(B") ("ri" "$B$j(B") ("ru" "$B$k(B") ("re" "$B$l(B") 
("ro" "$B$m(B")
      ("la" "$B$i(B") ("li" "$B$j(B") ("lu" "$B$k(B") ("le" "$B$l(B") 
("lo" "$B$m(B")
      ("wa" "$B$o(B") ("wi" "$B$p(B") ("wu" "$B$&(B") ("we" "$B$q(B") 
("wo" "$B$r(B")
!     ("n'" "$B$s(B")
      ("ga" "$B$,(B") ("gi" "$B$.(B") ("gu" "$B$0(B") ("ge" "$B$2(B") 
("go" "$B$4(B")
      ("za" "$B$6(B") ("zi" "$B$8(B") ("zu" "$B$:(B") ("ze" "$B$<(B") 
("zo" "$B$>(B")
      ("da" "address@hidden(B") ("di" "$B$B(B") ("du" "$B$E(B") ("de" 
"$B$G(B") ("do" "$B$I(B")
***************
*** 461,467 ****
  ("p" "$B#p(B") ("q" "$B#q(B") ("r" "$B#r(B") ("s" "$B#s(B")
  ("t" "$B#t(B") ("u" "$B#u(B") ("v" "$B#v(B") ("w" "$B#w(B")
  ("x" "$B#x(B") ("y" "$B#y(B") ("z" "$B#z(B") ("{" "$B!P(B")
! ("|" "$B!C(B") ("}" "$B!Q(B") ("~" "$B!A(B") 
  
  ("qq" quail-japanese-switch-package)
  ("qh" quail-japanese-switch-package)
--- 461,467 ----
  ("p" "$B#p(B") ("q" "$B#q(B") ("r" "$B#r(B") ("s" "$B#s(B")
  ("t" "$B#t(B") ("u" "$B#u(B") ("v" "$B#v(B") ("w" "$B#w(B")
  ("x" "$B#x(B") ("y" "$B#y(B") ("z" "$B#z(B") ("{" "$B!P(B")
! ("|" "$B!C(B") ("}" "$B!Q(B") ("~" "$B!A(B")
  
  ("qq" quail-japanese-switch-package)
  ("qh" quail-japanese-switch-package)
***************
*** 527,533 ****
        (setq quail-current-str (japanese-katakana quail-current-str)))
    control-flag)
  
! (quail-define-package 
   "japanese-katakana" "Japanese" "$B%"(B"
   nil
   "Japanese katakana input method by Roman transliteration."
--- 527,533 ----
        (setq quail-current-str (japanese-katakana quail-current-str)))
    control-flag)
  
! (quail-define-package
   "japanese-katakana" "Japanese" "$B%"(B"
   nil
   "Japanese katakana input method by Roman transliteration."