Sync up with egg-980627.

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

diff --git a/its/kata.el b/its/kata.el
index b138b66..9c11905 100644 (file)
--- 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 \"\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"
@@ -45,7 +50,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" nil
+  "roma-kata" "\e$B%"\e(B" 'Japanese
   "Map for Romaji-Katakana translation. (Japanese)"
 
   (defconst its-zenkaku-escape "Z")  ;; Escape character to Zenkaku inputs