Mercurial > emacs
comparison lisp/international/fontset.el @ 89806:960bd3cc1872
(setup-default-fontset): Delete the
entry for symbol script, add JISX0213 to kana script, specify
fallback fonts.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 06 Feb 2004 11:12:09 +0000 |
| parents | 16421a824d49 |
| children | c03a2732d0fd |
comparison
equal
deleted
inserted
replaced
| 89805:35a0a24752d3 | 89806:960bd3cc1872 |
|---|---|
| 161 (nil . "MuleArabic-2") | 161 (nil . "MuleArabic-2") |
| 162 (nil . "ISO8859-6")) | 162 (nil . "ISO8859-6")) |
| 163 | 163 |
| 164 (hebrew (nil . "ISO8859-8")) | 164 (hebrew (nil . "ISO8859-8")) |
| 165 | 165 |
| 166 (symbol (nil . "ISO10646-1") | |
| 167 (nil . "GB2312.1980-0") | |
| 168 (nil . "JISX0208*") | |
| 169 (nil . "JISX0212*") | |
| 170 (nil . "big5*")) | |
| 171 | |
| 172 (kana (nil . "JISX0208*") | 166 (kana (nil . "JISX0208*") |
| 173 (nil . "GB2312.1980-0") | 167 (nil . "GB2312.1980-0") |
| 174 (nil . "KSC5601.1987*") | 168 (nil . "KSC5601.1987*") |
| 175 (nil . "JISX0201*")) | 169 (nil . "JISX0201*") |
| 170 (nil . "JISX0213.2000-1") | |
| 171 (nil . "JISX0213.2004-1")) | |
| 176 | 172 |
| 177 (bopomofo (nil . "sisheng_cwnn-0")) | 173 (bopomofo (nil . "sisheng_cwnn-0")) |
| 178 | 174 |
| 179 (han (nil . "GB2312.1980-0") | 175 (han (nil . "GB2312.1980-0") |
| 180 (nil . "JISX0208*") | 176 (nil . "JISX0208*") |
| 241 (kannada-akruti (nil . "Kannada-Akruti")) | 237 (kannada-akruti (nil . "Kannada-Akruti")) |
| 242 (malayalam-akruti (nil . "Malayalam-Akruti")) | 238 (malayalam-akruti (nil . "Malayalam-Akruti")) |
| 243 ;;(devanagari-glyph ("altsys-dv_ttsurekh" . "devanagari-cdac")) | 239 ;;(devanagari-glyph ("altsys-dv_ttsurekh" . "devanagari-cdac")) |
| 244 ;;(malayalam-glyph ("altsys-ml_ttkarthika" . "malayalam-cdac")) | 240 ;;(malayalam-glyph ("altsys-ml_ttkarthika" . "malayalam-cdac")) |
| 245 (ipa (nil . "MuleIPA-1")) | 241 (ipa (nil . "MuleIPA-1")) |
| 242 | |
| 243 ;; Fallback fonts | |
| 244 (nil (nil . "gb2312.1980") | |
| 245 (nil . "jisx0208") | |
| 246 (nil . "ksc5601.1987") | |
| 247 (nil . "cns11643.1992.*1") | |
| 248 (nil . "big5") | |
| 249 (nil . "jisx0213.2000-1") | |
| 250 (nil . "jisx0213.2004-1") | |
| 251 (nil . "jisx0212")) | |
| 246 )) | 252 )) |
| 247 | 253 |
| 248 ;; Append Unicode fonts. | 254 ;; Append Unicode fonts. |
| 249 ;; This may find fonts with more variants (bold, italic) but which | 255 ;; This may find fonts with more variants (bold, italic) but which |
| 250 ;; don't cover many characters. | 256 ;; don't cover many characters. |
| 251 (set-fontset-font "fontset-default" '(0 . #xFFFF) | 257 (set-fontset-font "fontset-default" nil |
| 252 '(nil . "iso10646-1") nil 'append) | 258 '(nil . "iso10646-1") nil 'append) |
| 253 ;; These may find fonts that cover many characters but with fewer | 259 ;; These may find fonts that cover many characters but with fewer |
| 254 ;; variants. | 260 ;; variants. |
| 255 (set-fontset-font "fontset-default" '(0 . #xFFFF) | 261 (set-fontset-font "fontset-default" nil |
| 256 '("gnu-unifont" . "iso10646-1") nil 'append) | 262 '("gnu-unifont" . "iso10646-1") nil 'append) |
| 257 (set-fontset-font "fontset-default" '(0 . #xFFFF) | 263 (set-fontset-font "fontset-default" nil |
| 258 '("mutt-clearlyu" . "iso10646-1") nil 'append)) | 264 '("mutt-clearlyu" . "iso10646-1") nil 'append)) |
| 259 | 265 |
| 260 ;; These are the registered registries/encodings from | 266 ;; These are the registered registries/encodings from |
| 261 ;; ftp://ftp.x.org/pub/DOCS/registry 2001/06/01 | 267 ;; ftp://ftp.x.org/pub/DOCS/registry 2001/06/01 |
| 262 | 268 |