X-Git-Url: http://git.chise.org/gitweb/?p=elisp%2Fegg.git;a=blobdiff_plain;f=its%2Fhankata.el;fp=its%2Fhankata.el;h=897ebc12e17c6b558a1ee043b6965a795d6c8a63;hp=e701c1a4bdba3d9f06242c341ecee84d84773098;hb=a279e4bc8317bd5b9f656a1ae15775dfecd86588;hpb=76732e6a1bda6c43729b2c8e356a717b2c7b1043

diff --git a/its/hankata.el b/its/hankata.el
index e701c1a..897ebc1 100644
--- a/its/hankata.el
+++ b/its/hankata.el
@@ -44,7 +44,7 @@
 (defvar its-han-kata-horizontal  "(I0(B" "*-")    ; "$B!](B"
 
 (define-its-state-machine its-han-kata-map
-  "roma-han-kata" "(I11(B" "Japanese"
+  "roma-han-kata" "(I11(B" Japanese
   "Map for Romaji-Hankaku-Katakana translation. (Japanese)"
 
   (defconst its-hankaku-escape "~")  ;; Escape character to Hankaku inputs
@@ -64,12 +64,9 @@
   (dolist (q1 '("b" "m" "p"))
     (its-defrule (concat "m" q1) "(I](B" -1))
 
-  (its-defrule "N" "(I](B")
-
-  (let ((state (its-goto-state "n" nil t)))
-    (its-make-next-state state -1 "n" "(I](B")
-    (its-make-next-state state ?' "n" "(I](B")
-    (its-defrule-otherwise state "(I](B"))
+  (its-defrule* "n"  "(I](B")
+  (its-defrule  "n'" "(I](B")
+  (its-defrule  "N"  "(I](B")
 
   (let ((small '"x" ))
     (its-defrule (concat small "a") "(I'(B")
@@ -277,8 +274,7 @@
 
 (define-its-state-machine-append its-han-kata-map
   (if its-han-kata-enable-double-n
-      (its-defrule "nn" "(I](B")
-    (its-defrule "nn" "(I](B" -1))
+      (its-defrule "nn" "(I](B"))
 
   (its-defrule "-" its-han-kata-horizontal)
   (its-defrule "[" its-han-kata-open-bracket)