(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
+ "roma-kana" "\e$B$"\e(B" Japanese
"Map for Romaji-Hiragana translation. (Japanese)"
(defconst its-zenkaku-escape "Z") ;; Escape character to Zenkaku inputs
(dolist (q1 '("b" "m" "p"))
(its-defrule (concat "m" q1) "\e$B$s\e(B" -1))
- (its-defrule "N" "\e$B$s\e(B")
-
- (let ((state (its-goto-state "n" nil t)))
- (its-make-next-state state -1 "n" "\e$B$s\e(B")
- (its-make-next-state state ?' "n" "\e$B$s\e(B")
- (its-defrule-otherwise state "\e$B$s\e(B"))
+ (its-defrule* "n" "\e$B$s\e(B")
+ (its-defrule "n'" "\e$B$s\e(B")
+ (its-defrule "N" "\e$B$s\e(B")
(let ((small '"x" ))
(its-defrule (concat small "a") "\e$B$!\e(B")
(define-its-state-machine-append its-hira-map
(if its-hira-enable-double-n
- (its-defrule "nn" "\e$B$s\e(B")
- (its-defrule "nn" "\e$B$s\e(B" -1))
+ (its-defrule "nn" "\e$B$s\e(B"))
(its-defrule "-" its-hira-horizontal)
(its-defrule "[" its-hira-open-bracket)