mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-27 08:43:40 -07:00
Code Issues Projects Releases Wiki Activity

Change the font registries for CJK

Browse source 
fonts in the default fontset.  Don't append '*' to registries.
This commit is contained in:
Kenichi Handa 2000-12-04 06:27:35 +00:00
parent 8ac2d32f18
commit 9fff53a32b
1 changed files with 5 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/international/fontset.el
View file

@ -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))