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

diff --git a/its/zenkaku.el b/its/zenkaku.el
index d56c1bb..bfde649 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" nil
+  "zenkaku-upcase" "Ａ" 'Japanese
   "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" nil
+  "zenkaku-downcase" "ａ" 'Japanese
   "Map for zenkaku-downcase input."
 
   (dolist (ascii '(("0" . "０")  ("1" . "１")  ("2" . "２")  ("3" . "３")