aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorKenichi Handa <[email protected]>2000-12-04 06:27:35 +0000
committerKenichi Handa <[email protected]>2000-12-04 06:27:35 +0000
commit9fff53a32b227ba0ad951b7f5e710f14cf01202f (patch)
tree1b527da9d13b7497df12f52b6e22dbd09b5ecf55 /lisp
parent8ac2d32f186b787ad3ac10fde16f05e3faea0c3e (diff)
Change the font registries for CJK
fonts in the default fontset. Don't append '*' to registries.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/international/fontset.el12
1 files changed, 5 insertions, 7 deletions
diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el
index 33b7fb12cf..2581745448 100644
--- a/lisp/international/fontset.el
+++ b/lisp/international/fontset.el
@@ -50,9 +50,9 @@
(cyrillic-iso8859-5 . ("*" . "ISO8859-5"))
(latin-iso8859-9 . (nil . "ISO8859-9"))
(japanese-jisx0208-1978 . ("*" . "JISX0208.1978"))
- (chinese-gb2312 . ("*" . "GB2312"))
- (japanese-jisx0208 . ("*" . "JISX0208.1983"))
- (korean-ksc5601 . ("*" . "KSC5601"))
+ (chinese-gb2312 . ("*" . "GB2312.1980"))
+ (japanese-jisx0208 . ("*" . "JISX0208.1990"))
+ (korean-ksc5601 . ("*" . "KSC5601.1989"))
(japanese-jisx0212 . ("*" . "JISX0212"))
(chinese-cns11643-1 . ("*" . "CNS11643.1992-1"))
(chinese-cns11643-2 . ("*" . "CNS11643.1992-2"))
@@ -83,14 +83,12 @@
(mule-unicode-0100-24ff . (nil . "ISO10646-1"))
(mule-unicode-2500-33ff . (nil . "ISO10646-1"))
(mule-unicode-e000-ffff . (nil . "ISO10646-1"))
- (japanese-jisx0213-1 . ("*" . "JISX0213"))
- (japanese-jisx0213-2 . ("*" . "JISX0213"))
+ (japanese-jisx0213-1 . ("*" . "JISX0213.2000"))
+ (japanese-jisx0213-2 . ("*" . "JISX0213.2000"))
))
charset font-spec arg)
(while l
(setq charset (car (car l)) font-spec (cdr (car l)) l (cdr l))
- (or (string-match "-" (cdr font-spec))
- (setcdr font-spec (concat (cdr font-spec) "*")))
(if (symbolp charset)
(setq arg (make-char charset))
(setq arg charset))