Merge egg-980316.

[elisp/egg.git] / its / kata.el

diff --git a/its/kata.el b/its/kata.el
index 9c11905..b138b66 100644 (file)
--- a/its/kata.el
+++ b/its/kata.el
@@ -36,13 +36,8 @@
   (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 \"\e$B%s\e(B\" ")
+(defvar its-kata-enable-zenkaku-alphabet t "*Enable Zenkaku alphabet")
 (defvar its-kata-period "\e$B!#\e(B" "*\e$B%T%j%*%I\e(B")  ; ". " "\e$B!%\e(B"
 (defvar its-kata-comma  "\e$B!"\e(B" "*\e$B%3%s%^\e(B")    ; ", " "\e$B!$\e(B"
 (defvar its-kata-open-bracket  "\e$B!V\e(B" "*[")  ; "\e$B!N\e(B"
@@ -50,7 +45,7 @@
 (defvar its-kata-horizontal  "\e$B!<\e(B" "*-")    ; "\e$B!]\e(B"
 
 (define-its-state-machine its-kata-map
-  "roma-kata" "\e$B%"\e(B" 'Japanese
+  "roma-kata" "\e$B%"\e(B" "Japanese" nil
   "Map for Romaji-Katakana translation. (Japanese)"
 
   (defconst its-zenkaku-escape "Z")  ;; Escape character to Zenkaku inputs