Mercurial > emacs
comparison lisp/international/fontset.el @ 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 | 3ea8618b4433 |
| children | 564f64e0d6db |
comparison
equal
deleted
inserted
replaced
| 103632:a4b47cc25ea0 | 103633:1ee218237a45 |
|---|---|
| 562 (nconc script-representative-chars (list slot)))) | 562 (nconc script-representative-chars (list slot)))) |
| 563 (set-fontset-font | 563 (set-fontset-font |
| 564 "fontset-default" | 564 "fontset-default" |
| 565 (cons (car math-subgroup) (nth 1 math-subgroup)) | 565 (cons (car math-subgroup) (nth 1 math-subgroup)) |
| 566 (font-spec :registry "iso10646-1" :script (nth 2 math-subgroup)))) | 566 (font-spec :registry "iso10646-1" :script (nth 2 math-subgroup)))) |
| 567 | |
| 568 ;; Append CJK fonts for characters other than han, kana, cjk-misc. | |
| 569 ;; CHARSET-REGISTRY CHARSET FROM-CODE TO-CODE | |
| 570 (let ((list '(("JISX0208.1983-0" japanese-jisx0208 #x2121 #x287E) | |
| 571 ("GB2312.1980-0" chinese-gb2312 #x2121 #x297E) | |
| 572 ("BIG5-0" big5 #xA140 #xA3FE) | |
| 573 ("CNS11643.1992-1" chinese-cns11643-1 #x2121 #x427E) | |
| 574 ("KSC5601.1987-0" korean-ksc5601 #x2121 #x2C7E)))) | |
| 575 (dolist (elt list) | |
| 576 (map-charset-chars | |
| 577 #'(lambda (range arg) | |
| 578 (set-fontset-font "fontset-default" range | |
| 579 (cons nil (car elt)) nil 'append)) | |
| 580 (nth 1 elt) nil (nth 2 elt) (nth 3 elt)))) | |
| 567 | 581 |
| 568 ;; Append Unicode fonts. | 582 ;; Append Unicode fonts. |
| 569 ;; This may find fonts with more variants (bold, italic) but which | 583 ;; This may find fonts with more variants (bold, italic) but which |
| 570 ;; don't cover many characters. | 584 ;; don't cover many characters. |
| 571 (set-fontset-font "fontset-default" nil | 585 (set-fontset-font "fontset-default" nil |