Sync up with egg-980627.

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

diff --git a/its/hankata.el b/its/hankata.el
index fc51124..e701c1a 100644 (file)
--- a/its/hankata.el
+++ b/its/hankata.el
@@ -35,16 +35,16 @@
   (require 'its)
   (require 'cl))
 
-(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(I!\e(B" "*\e$B%T%j%*%I\e(B")  ; ". " "\e$B!%\e(B"
-(defvar its-kata-comma  "\e(I$\e(B" "*\e$B%3%s%^\e(B")    ; ", " "\e$B!$\e(B"
-(defvar its-kata-open-bracket  "\e(I"\e(B" "*[")  ; "\e$B!N\e(B"
-(defvar its-kata-close-bracket  "\e(I#\e(B" "*]") ; "\e$B!O\e(B"
-(defvar its-kata-horizontal  "\e(I0\e(B" "*-")    ; "\e$B!]\e(B"
+(defvar its-han-kata-enable-double-n nil "*Enable \"nn\" input for \"\e$B%s\e(B\" ")
+(defvar its-han-kata-enable-zenkaku-alphabet t "*Enable Zenkaku alphabet")
+(defvar its-han-kata-period "\e(I!\e(B" "*\e$B%T%j%*%I\e(B")  ; ". " "\e$B!%\e(B"
+(defvar its-han-kata-comma  "\e(I$\e(B" "*\e$B%3%s%^\e(B")    ; ", " "\e$B!$\e(B"
+(defvar its-han-kata-open-bracket  "\e(I"\e(B" "*[")  ; "\e$B!N\e(B"
+(defvar its-han-kata-close-bracket  "\e(I#\e(B" "*]") ; "\e$B!O\e(B"
+(defvar its-han-kata-horizontal  "\e(I0\e(B" "*-")    ; "\e$B!]\e(B"
 
 (define-its-state-machine its-han-kata-map
-  "roma-han-kata" "\e(I11\e(B" "Japanese" nil
+  "roma-han-kata" "\e(I11\e(B" "Japanese"
   "Map for Romaji-Hankaku-Katakana translation. (Japanese)"
 
   (defconst its-hankaku-escape "~")  ;; Escape character to Hankaku inputs
@@ -276,15 +276,15 @@
     (its-defrule (concat its-hankaku-escape upcase) upcase)))
 
 (define-its-state-machine-append its-han-kata-map
-  (if its-kata-enable-double-n
+  (if its-han-kata-enable-double-n
       (its-defrule "nn" "\e(I]\e(B")
     (its-defrule "nn" "\e(I]\e(B" -1))
 
-  (its-defrule "-" its-kata-horizontal)
-  (its-defrule "[" its-kata-open-bracket)
-  (its-defrule "]" its-kata-close-bracket)
-  (its-defrule "." its-kata-period)
-  (its-defrule "," its-kata-comma)
+  (its-defrule "-" its-han-kata-horizontal)
+  (its-defrule "[" its-han-kata-open-bracket)
+  (its-defrule "]" its-han-kata-close-bracket)
+  (its-defrule "." its-han-kata-period)
+  (its-defrule "," its-han-kata-comma)
   )
 
 (provide 'its/hankata)