(require 'its)
(require 'cl))
-(defvar its-erpin-cn-enable-quanjioao-alphabet t "*Enable Quanjiao alphabet")
+(defvar its-erpin-cn-enable-quanjioao-alphabet
+ (if (boundp 'its-enable-fullwidth-alphabet)
+ its-enable-fullwidth-alphabet
+ t)
+ "*Enable Quanjiao alphabet")
+
(defvar its-erpin-cn-open-braket "\e$A!8\e(B" "*[") ; "\e$A#[\e(B"
(defvar its-erpin-cn-close-braket "\e$A!9\e(B" "*]") ; "\e$A#]\e(B"
-(defvar its-erpin-tw-enable-quanjioao-alphabet t "*Enable Quanjiao alphabet")
+(defvar its-erpin-tw-enable-quanjioao-alphabet
+ (if (boundp 'its-enable-fullwidth-alphabet)
+ its-enable-fullwidth-alphabet
+ t)
+ "*Enable Quanjiao alphabet")
+
(defvar its-erpin-tw-open-braket "\e$(G!V\e(B" "*[") ; "\e$(G!b\e(B "
(defvar its-erpin-tw-close-braket "\e$(G!W\e(B" "*]") ; "\e$(G!c\e(B"
(its-defrule "on4" "\e(0?@\e(B"))))
(define-its-state-machine its-erpin-cn-map
- "erpin-cn" "\e$A6~\e(BG" "Chinese-GB"
+ "erpin-cn" "\e$A6~\e(BG" 'Chinese-GB
"Map for Erpin input. (Chinese-GB)"
(defconst its-quanjiao-escape "Z")
(its-defrule "!" "\e$A#!\e(B"))
(define-its-state-machine its-erpin-tw-map
- "erpin-tw" "\e$(GD(\e(BC" "Chinese-CNS"
+ "erpin-tw" "\e$(GD(\e(BC" 'Chinese-CNS
"Map for Erpin input."
(defconst its-quanjiao-escape "Z")
(" " . "\e$(G!!\e(B") ("!" . "\e$(G!*\e(B") ("@" . "\e$(G"i\e(B") ("#" . "\e$(G!l\e(B")
("$" . "\e$(G"c\e(B") ("%" . "\e$(G"h\e(B") ("^" . "\e$(G!T\e(B") ("&" . "\e$(G!m\e(B")
("*" . "\e$(G!n\e(B") ("(" . "\e$(G!>\e(B") (")" . "\e$(G!?\e(B")
- ("-" . "\e$(G"1\e(B") ("=" . "\e$(G"8\e(B") ("`" . "\e$(G!j\e(B") ("\\" . "\e$(G"b\e(B")
+ ("-" . "\e$(G"1\e(B") ("=" . "\e$(G"8\e(B") ("`" . "\e$(G!j\e(B") ("\\" . "\e$(G"`\e(B")
("|" . "\e$(G"^\e(B") ("_" . "\e$(G"%\e(B") ("+" . "\e$(G"0\e(B") ("~" . "\e$(G"D\e(B")
- ("[" . "\e$(G!b\e(B") ("]" . "\e$(G!c\e(B") ("{" . "\e$A#{\e(B") ("}" . "\e$(G!a\e(B")
+ ("[" . "\e$(G!b\e(B") ("]" . "\e$(G!c\e(B") ("{" . "\e$(G!B\e(B") ("}" . "\e$(G!C\e(B")
(":" . "\e$(G!(\e(B") (";" . "\e$(G!'\e(B") ("\"" . "\e$(G!i\e(B") ("'" . "\e$(G!k\e(B")
- ("<" . "\e$(G"6\e(B") (">" . "\e$(G"7\e(B") ("?" . "\e$(G!)\e(B") ("/" . "\e$(G"a\e(B")
+ ("<" . "\e$(G"6\e(B") (">" . "\e$(G"7\e(B") ("?" . "\e$(G!)\e(B") ("/" . "\e$(G"_\e(B")
("," . "\e$(G!"\e(B") ("." . "\e$(G!%\e(B")
("a" . "\e$(G$[\e(B") ("b" . "\e$(G$\\e(B") ("c" . "\e$(G$]\e(B") ("d" . "\e$(G$^\e(B")
("e" . "\e$(G$_\e(B") ("f" . "\e$(G$`\e(B") ("g" . "\e$(G$a\e(B") ("h" . "\e$(G$b\e(B")
(its-defrule "=" "\e$A#=\e(B") (its-defrule "`" "\e$A#`\e(B")
(its-defrule "\\" "\e$A#\\e(B") (its-defrule "|" "\e$A#|\e(B")
(its-defrule "_" "\e$A#_\e(B") (its-defrule "+" "\e$A#+\e(B")
- (its-defrule "{" "\e$A#{\e(B") (its-defrule "}" "\e$A#}\e(B")
+ (its-defrule "{" "\e$(G!B\e(B") (its-defrule "}" "\e$(G!C\e(B")
(its-defrule "\"" "\e$A#"\e(B") (its-defrule "'" "\e$A#'\e(B")
(its-defrule "<" "\e$A#<\e(B") (its-defrule ">" "\e$A#>\e(B"))
(progn