projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(mapping-table-ccs-setting-alist): Add setting for G0-hhhh.
[chise/xemacs-chise.git-]
/
lisp
/
utf-2000
/
read-maps.el
diff --git
a/lisp/utf-2000/read-maps.el
b/lisp/utf-2000/read-maps.el
index
739818d
..
a2a1f85
100644
(file)
--- a/
lisp/utf-2000/read-maps.el
+++ b/
lisp/utf-2000/read-maps.el
@@
-41,6
+41,10
@@
"^JX2-\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]\\)" 1 16
=ucs@jis/2000
"\tJU[+-]\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]+\\)")
"^JX2-\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]\\)" 1 16
=ucs@jis/2000
"\tJU[+-]\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]+\\)")
+ (=gb2312
+ "^G0-\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]\\)" 1 16
+ =ucs@gb
+ "\tGU[+-]\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]+\\)")
(=cns11643-1
"^C1-\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]\\)" 1 16
=ucs@cns
(=cns11643-1
"^C1-\\([0-9A-F][0-9A-F][0-9A-F][0-9A-F]\\)" 1 16
=ucs@cns
@@
-136,11
+140,13
@@
UCS-REGEXP is a regular expression to match against
(if (memq ucs-ccs '(=ucs@jis
=ucs@jis/1990
=ucs@jis/2000
(if (memq ucs-ccs '(=ucs@jis
=ucs@jis/1990
=ucs@jis/2000
- ;; ucs-big5
))
(encode-char chr '=ucs@jis/fw
'defined-only)
))
(encode-char chr '=ucs@jis/fw
'defined-only)
- (char-feature chr '=>ucs)))
+ (unless (memq ucs-ccs '(=ucs@gb
+ ;; ucs-big5
+ ))
+ (char-feature chr '=>ucs))))
ucs-code)))
(put-char-attribute chr ucs-ccs ucs-code))
(when (and ucs
ucs-code)))
(put-char-attribute chr ucs-ccs ucs-code))
(when (and ucs
@@
-148,6
+154,7
@@
UCS-REGEXP is a regular expression to match against
(and (not (memq ucs-ccs '(=ucs@jis
=ucs@jis/1990
=ucs@jis/2000
(and (not (memq ucs-ccs '(=ucs@jis
=ucs@jis/1990
=ucs@jis/2000
+ =ucs@gb
;; ucs-big5
)))
(char-feature chr '=>ucs)))
;; ucs-big5
)))
(char-feature chr '=>ucs)))