projects
/
elisp
/
egg.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Sync up with egg-980627.
[elisp/egg.git]
/
its
/
erpin.el
diff --git
a/its/erpin.el
b/its/erpin.el
index
db0665b
..
83b1d6f
100644
(file)
--- a/
its/erpin.el
+++ b/
its/erpin.el
@@
-2,11
+2,21
@@
(require 'its)
(require 'cl))
(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-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"
(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"
@@
-153,7
+163,7
@@
(its-defrule "on4" "
\e
(0?@
\e
(B"))))
(define-its-state-machine its-erpin-cn-map
(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")
"Map for Erpin input. (Chinese-GB)"
(defconst its-quanjiao-escape "Z")
@@
-227,7
+237,7
@@
(its-defrule "!" "
\e
$A#!
\e
(B"))
(define-its-state-machine its-erpin-tw-map
(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")
"Map for Erpin input."
(defconst its-quanjiao-escape "Z")
@@
-268,11
+278,11
@@
(" " . "
\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!!
\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"^
\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!(
\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")
("," . "
\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")
@@
-320,7
+330,7
@@
(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
$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
(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