X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=its%2Fkata.el;fp=its%2Fkata.el;h=9c11905fd3bc4505602e4538521fe56b777d6b70;hb=ccc2c3cf2a993db1166638b047bff13ee5100336;hp=b138b668ac04a203b058de23401a8e43504d8a77;hpb=5f7ad70da32a806a4e0e3f8e59ce96325653bf9b;p=elisp%2Fegg.git

diff --git a/its/kata.el b/its/kata.el
index b138b66..9c11905 100644
--- a/its/kata.el
+++ b/its/kata.el
@@ -36,8 +36,13 @@
   (require 'its)
   (require 'cl))
 
+(defvar its-kata-enable-zenkaku-alphabet
+  (if (boundp 'its-enable-fullwidth-alphabet)
+      its-enable-fullwidth-alphabet
+    t)
+  "*Enable Zenkaku alphabet")
+
 (defvar its-kata-enable-double-n nil "*Enable \"nn\" input for \"ン\" ")
-(defvar its-kata-enable-zenkaku-alphabet t "*Enable Zenkaku alphabet")
 (defvar its-kata-period "。" "*ピリオド")  ; ". " "．"
 (defvar its-kata-comma  "、" "*コンマ")    ; ", " "，"
 (defvar its-kata-open-bracket  "「" "*[")  ; "［"
@@ -45,7 +50,7 @@
 (defvar its-kata-horizontal  "ー" "*-")    ; "−"
 
 (define-its-state-machine its-kata-map
-  "roma-kata" "ア" "Japanese" nil
+  "roma-kata" "ア" 'Japanese
   "Map for Romaji-Katakana translation. (Japanese)"
 
   (defconst its-zenkaku-escape "Z")  ;; Escape character to Zenkaku inputs