X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fegg.git;a=blobdiff_plain;f=its%2Fzenkaku.el;fp=its%2Fzenkaku.el;h=d56c1bb0d59680d5d9ff57cc2cac57e2f2bd8754;hp=bfde649d7e519b8a1facd34f18584f8262cb450b;hb=0361535d1cf351f4e07d7d86769eb02322bfaca5;hpb=76f334e2fe809b36369c21ae700fb4111c959cde

diff --git a/its/zenkaku.el b/its/zenkaku.el
index bfde649..d56c1bb 100644
--- a/its/zenkaku.el
+++ b/its/zenkaku.el
@@ -35,7 +35,7 @@
   (require 'its))
 
 (define-its-state-machine its-zenkaku-up-map
-  "zenkaku-upcase" "Ａ" 'Japanese
+  "zenkaku-upcase" "Ａ" "Japanese" nil
   "Map for zenkaku-upcase input."
 
   (dolist (ascii '(("0" . "０")  ("1" . "１")  ("2" . "２")  ("3" . "３")
@@ -68,7 +68,7 @@
       (its-defrule in out))))
 
 (define-its-state-machine its-zenkaku-down-map
-  "zenkaku-downcase" "ａ" 'Japanese
+  "zenkaku-downcase" "ａ" "Japanese" nil
   "Map for zenkaku-downcase input."
 
   (dolist (ascii '(("0" . "０")  ("1" . "１")  ("2" . "２")  ("3" . "３")