(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"
(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" nil
"Map for Romaji-Hiragana translation. (Japanese)"
(defconst its-zenkaku-escape "Z") ;; Escape character to Zenkaku inputs