Mercurial > emacs
changeset 103633:1ee218237a45
(setup-default-fontset): Add CJK fonts
for symbols and the other miscellaneous characters.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 30 Jun 2009 02:16:07 +0000 |
| parents | a4b47cc25ea0 |
| children | c9a91925541c |
| files | lisp/international/fontset.el |
| diffstat | 1 files changed, 14 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/fontset.el Tue Jun 30 02:08:36 2009 +0000 +++ b/lisp/international/fontset.el Tue Jun 30 02:16:07 2009 +0000 @@ -565,6 +565,20 @@ (cons (car math-subgroup) (nth 1 math-subgroup)) (font-spec :registry "iso10646-1" :script (nth 2 math-subgroup)))) + ;; Append CJK fonts for characters other than han, kana, cjk-misc. + ;; CHARSET-REGISTRY CHARSET FROM-CODE TO-CODE + (let ((list '(("JISX0208.1983-0" japanese-jisx0208 #x2121 #x287E) + ("GB2312.1980-0" chinese-gb2312 #x2121 #x297E) + ("BIG5-0" big5 #xA140 #xA3FE) + ("CNS11643.1992-1" chinese-cns11643-1 #x2121 #x427E) + ("KSC5601.1987-0" korean-ksc5601 #x2121 #x2C7E)))) + (dolist (elt list) + (map-charset-chars + #'(lambda (range arg) + (set-fontset-font "fontset-default" range + (cons nil (car elt)) nil 'append)) + (nth 1 elt) nil (nth 2 elt) (nth 3 elt)))) + ;; Append Unicode fonts. ;; This may find fonts with more variants (bold, italic) but which ;; don't cover many characters.