Sync up with egg-980627.

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

diff --git a/its/hira.el b/its/hira.el
index 051dcc6..f899001 100644 (file)
--- a/its/hira.el
+++ b/its/hira.el
@@ -36,8 +36,13 @@
   (require 'its)
   (require 'cl))
 
+(defvar its-hira-enable-zenkaku-alphabet
+  (if (boundp 'its-enable-fullwidth-alphabet)
+      its-enable-fullwidth-alphabet
+    t)
+  "*Enable Zenkaku alphabet")
+
 (defvar its-hira-enable-double-n nil "*Enable \"nn\" input for \"\e$B$s\e(B\" ")
-(defvar its-hira-enable-zenkaku-alphabet t "*Enable Zenkaku alphabet")
 (defvar its-hira-period "\e$B!#\e(B" "*\e$B%T%j%*%I\e(B")  ; ". " "\e$B!%\e(B"
 (defvar its-hira-comma  "\e$B!"\e(B" "*\e$B%3%s%^\e(B")    ; ", " "\e$B!$\e(B"
 (defvar its-hira-open-bracket  "\e$B!V\e(B" "*[")  ; "\e$B!N\e(B"
@@ -45,7 +50,7 @@
 (defvar its-hira-horizontal  "\e$B!<\e(B" "*-")    ; "\e$B!]\e(B"
 
 (define-its-state-machine its-hira-map
-  "roma-kana" "\e$B$"\e(B" "Japanese" nil
+  "roma-kana" "\e$B$"\e(B" 'Japanese
   "Map for Romaji-Hiragana translation. (Japanese)"
 
   (defconst its-zenkaku-escape "Z")  ;; Escape character to Zenkaku inputs