projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
- Add some `=ucs@cns' features.
[chise/xemacs-chise.git-]
/
lisp
/
utf-2000
/
char-db-util.el
diff --git
a/lisp/utf-2000/char-db-util.el
b/lisp/utf-2000/char-db-util.el
index
19d49ad
..
66d3995
100644
(file)
--- a/
lisp/utf-2000/char-db-util.el
+++ b/
lisp/utf-2000/char-db-util.el
@@
-127,9
+127,9
@@
greek-iso8859-7
thai-tis620
=jis-x0208
greek-iso8859-7
thai-tis620
=jis-x0208
- japanese-jisx0208
+ =jis-x0208@1978
+ =jis-x0208@1983
japanese-jisx0212
japanese-jisx0212
- japanese-jisx0208-1978
chinese-gb2312
chinese-cns11643-1
chinese-cns11643-2
chinese-gb2312
chinese-cns11643-1
chinese-cns11643-2
@@
-138,7
+138,7
@@
chinese-cns11643-5
chinese-cns11643-6
chinese-cns11643-7
chinese-cns11643-5
chinese-cns11643-6
chinese-cns11643-7
- =jis-x0208-1990
+ =jis-x0208@1990
=jis-x0213-1-2000
=jis-x0213-2-2000
korean-ksc5601
=jis-x0213-1-2000
=jis-x0213-2-2000
korean-ksc5601
@@
-165,9
+165,10
@@
ideograph-hanziku-10
ideograph-hanziku-11
ideograph-hanziku-12
ideograph-hanziku-10
ideograph-hanziku-11
ideograph-hanziku-12
+ =gt-k
+ =ucs@unicode
=big5
=big5-eten
=big5
=big5-eten
- =gt-k
=jis-x0208@1997
=jef-china3))
=jis-x0208@1997
=jef-china3))
@@
-204,6
+205,8
@@
=daikanwa@rev2
;; =gt-k
)))
=daikanwa@rev2
;; =gt-k
)))
+ (setq ccs (charset-name ccs))
+ (null (assq ccs char-spec))
(setq ret (encode-char char ccs 'defined-only)))
(setq char-spec (cons (cons ccs ret) char-spec))))
(if (null char-spec)
(setq ret (encode-char char ccs 'defined-only)))
(setq char-spec (cons (cons ccs ret) char-spec))))
(if (null char-spec)