Mercurial > emacs
comparison lisp/w32-fns.el @ 45814:8e79905a56dd
(w32-charset-info-alist): Reorder.
| author | Jason Rumney <jasonr@gnu.org> |
|---|---|
| date | Thu, 13 Jun 2002 20:39:32 +0000 |
| parents | 321baeaafdc2 |
| children | 695cf19ef79e d7ddb3e565de |
comparison
equal
deleted
inserted
replaced
| 45813:2af746efaa44 | 45814:8e79905a56dd |
|---|---|
| 357 bit output with no translation." | 357 bit output with no translation." |
| 358 (add-to-list 'w32-charset-info-alist | 358 (add-to-list 'w32-charset-info-alist |
| 359 (cons xlfd-charset (cons windows-charset codepage))) | 359 (cons xlfd-charset (cons windows-charset codepage))) |
| 360 ) | 360 ) |
| 361 | 361 |
| 362 (w32-add-charset-info "iso8859-1" 'w32-charset-ansi 1252) | 362 ;; The last charset we add becomes the "preferred" charset for the return |
| 363 ;; value from w32-select-font etc, so list the most important charsets last. | |
| 363 (w32-add-charset-info "iso8859-14" 'w32-charset-ansi 28604) | 364 (w32-add-charset-info "iso8859-14" 'w32-charset-ansi 28604) |
| 364 (w32-add-charset-info "iso8859-15" 'w32-charset-ansi 28605) | 365 (w32-add-charset-info "iso8859-15" 'w32-charset-ansi 28605) |
| 365 (w32-add-charset-info "jisx0208-sjis" 'w32-charset-shiftjis 932) | |
| 366 (w32-add-charset-info "jisx0201-latin" 'w32-charset-shiftjis 932) | 366 (w32-add-charset-info "jisx0201-latin" 'w32-charset-shiftjis 932) |
| 367 (w32-add-charset-info "jisx0201-katakana" 'w32-charset-shiftjis 932) | 367 (w32-add-charset-info "jisx0201-katakana" 'w32-charset-shiftjis 932) |
| 368 (w32-add-charset-info "jisx0208-sjis" 'w32-charset-shiftjis 932) | |
| 368 (w32-add-charset-info "ksc5601.1987" 'w32-charset-hangeul 949) | 369 (w32-add-charset-info "ksc5601.1987" 'w32-charset-hangeul 949) |
| 369 (w32-add-charset-info "big5" 'w32-charset-chinesebig5 950) | 370 (w32-add-charset-info "big5" 'w32-charset-chinesebig5 950) |
| 370 (w32-add-charset-info "gb2312" 'w32-charset-gb2312 936) | 371 (w32-add-charset-info "gb2312" 'w32-charset-gb2312 936) |
| 371 (w32-add-charset-info "ms-symbol" 'w32-charset-symbol nil) | 372 (w32-add-charset-info "ms-symbol" 'w32-charset-symbol nil) |
| 372 (w32-add-charset-info "ms-oem" 'w32-charset-oem 437) | 373 (w32-add-charset-info "ms-oem" 'w32-charset-oem 437) |
| 374 (if (boundp 'w32-extra-charsets-defined) | 375 (if (boundp 'w32-extra-charsets-defined) |
| 375 (progn | 376 (progn |
| 376 (w32-add-charset-info "iso8859-2" 'w32-charset-easteurope 28592) | 377 (w32-add-charset-info "iso8859-2" 'w32-charset-easteurope 28592) |
| 377 (w32-add-charset-info "iso8859-3" 'w32-charset-turkish 28593) | 378 (w32-add-charset-info "iso8859-3" 'w32-charset-turkish 28593) |
| 378 (w32-add-charset-info "iso8859-4" 'w32-charset-baltic 28594) | 379 (w32-add-charset-info "iso8859-4" 'w32-charset-baltic 28594) |
| 379 (w32-add-charset-info "iso8859-5" 'w32-charset-russian 28595) | |
| 380 (w32-add-charset-info "iso8859-6" 'w32-charset-arabic 28596) | 380 (w32-add-charset-info "iso8859-6" 'w32-charset-arabic 28596) |
| 381 (w32-add-charset-info "iso8859-7" 'w32-charset-greek 28597) | 381 (w32-add-charset-info "iso8859-7" 'w32-charset-greek 28597) |
| 382 (w32-add-charset-info "iso8859-8" 'w32-charset-hebrew 1255) | 382 (w32-add-charset-info "iso8859-8" 'w32-charset-hebrew 1255) |
| 383 (w32-add-charset-info "iso8859-9" 'w32-charset-turkish 1254) | 383 (w32-add-charset-info "iso8859-9" 'w32-charset-turkish 1254) |
| 384 (w32-add-charset-info "iso8859-13" 'w32-charset-baltic 1257) | 384 (w32-add-charset-info "iso8859-13" 'w32-charset-baltic 1257) |
| 385 (w32-add-charset-info "koi8-r" 'w32-charset-russian 20866) | 385 (w32-add-charset-info "koi8-r" 'w32-charset-russian 20866) |
| 386 (w32-add-charset-info "iso8859-5" 'w32-charset-russian 28595) | |
| 386 (w32-add-charset-info "tis620" 'w32-charset-thai 874) | 387 (w32-add-charset-info "tis620" 'w32-charset-thai 874) |
| 387 (w32-add-charset-info "ksc5601.1992" 'w32-charset-johab 1361) | 388 (w32-add-charset-info "ksc5601.1992" 'w32-charset-johab 1361) |
| 388 (w32-add-charset-info "mac" 'w32-charset-mac nil))) | 389 (w32-add-charset-info "mac" 'w32-charset-mac nil))) |
| 389 (if (boundp 'w32-unicode-charset-defined) | 390 (if (boundp 'w32-unicode-charset-defined) |
| 390 (progn | 391 (progn |
| 391 (w32-add-charset-info "iso10646-1" 'w32-charset-unicode t) | 392 (w32-add-charset-info "unicode" 'w32-charset-unicode t) |
| 392 (w32-add-charset-info "unicode" 'w32-charset-unicode t)) | 393 (w32-add-charset-info "iso10646-1" 'w32-charset-unicode t)) |
| 393 ;; If unicode windows charset is not defined, use ansi fonts. | 394 ;; If unicode windows charset is not defined, use ansi fonts. |
| 394 (w32-add-charset-info "iso10646-1" 'w32-charset-ansi t)) | 395 (w32-add-charset-info "iso10646-1" 'w32-charset-ansi t)) |
| 396 (w32-add-charset-info "iso8859-1" 'w32-charset-ansi 1252) | |
| 395 | 397 |
| 396 (make-obsolete-variable 'w32-enable-italics | 398 (make-obsolete-variable 'w32-enable-italics |
| 397 'w32-enable-synthesized-fonts "21.1") | 399 'w32-enable-synthesized-fonts "21.1") |
| 398 (make-obsolete-variable 'w32-charset-to-codepage-alist | 400 (make-obsolete-variable 'w32-charset-to-codepage-alist |
| 399 'w32-charset-info-alist "21.1") | 401 'w32-charset-info-alist "21.1") |