Mercurial > emacs
comparison lisp/international/fontset.el @ 97843:614184e29c56
(setup-default-fontset): Prepend
iso10646-1 fonts to the fallback font groups instead of appending.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 29 Aug 2008 08:02:01 +0000 |
| parents | 7f34191b026b |
| children | bfd2584c2f7a |
comparison
equal
deleted
inserted
replaced
| 97842:8dfd5f6c48e4 | 97843:614184e29c56 |
|---|---|
| 488 | 488 |
| 489 ;; Append Unicode fonts. | 489 ;; Append Unicode fonts. |
| 490 ;; This may find fonts with more variants (bold, italic) but which | 490 ;; This may find fonts with more variants (bold, italic) but which |
| 491 ;; don't cover many characters. | 491 ;; don't cover many characters. |
| 492 (set-fontset-font "fontset-default" nil | 492 (set-fontset-font "fontset-default" nil |
| 493 '(nil . "iso10646-1") nil 'append) | 493 '(nil . "iso10646-1") nil 'prepend) |
| 494 ;; These may find fonts that cover many characters but with fewer | 494 ;; These may find fonts that cover many characters but with fewer |
| 495 ;; variants. | 495 ;; variants. |
| 496 (set-fontset-font "fontset-default" nil | 496 (set-fontset-font "fontset-default" nil |
| 497 '("gnu-unifont" . "iso10646-1") nil 'append) | 497 '("gnu-unifont" . "iso10646-1") nil 'prepend) |
| 498 (set-fontset-font "fontset-default" nil | 498 (set-fontset-font "fontset-default" nil |
| 499 '("mutt-clearlyu" . "iso10646-1") nil 'append) | 499 '("mutt-clearlyu" . "iso10646-1") nil 'prepend) |
| 500 | 500 |
| 501 (set-fontset-font "fontset-default" '(#xE000 . #xF8FF) nil)) | 501 (set-fontset-font "fontset-default" '(#xE000 . #xF8FF) nil)) |
| 502 | 502 |
| 503 ;; These are the registered registries/encodings from | 503 ;; These are the registered registries/encodings from |
| 504 ;; ftp://ftp.x.org/pub/DOCS/registry 2001/06/01 | 504 ;; ftp://ftp.x.org/pub/DOCS/registry 2001/06/01 |