diff options
| author | Jason Rumney <jasonr@gnu.org> | 2000-03-22 23:01:04 +0000 |
|---|---|---|
| committer | Jason Rumney <jasonr@gnu.org> | 2000-03-22 23:01:04 +0000 |
| commit | df23be58fc0f0143b838a0092266df7f37dafb51 (patch) | |
| tree | 34c94b91fbacac1aef493f093e34aacb79fdf3c2 /lisp/w32-fns.el | |
| parent | 204d5630fe59726f34cd110b4c86f04ede513472 (diff) | |
| download | emacs-df23be58fc0f0143b838a0092266df7f37dafb51.tar.gz | |
(w32-charset-info-alist): Initialize.
Diffstat (limited to 'lisp/w32-fns.el')
| -rw-r--r-- | lisp/w32-fns.el | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/lisp/w32-fns.el b/lisp/w32-fns.el index bcfa817eb48..c9f1a53c771 100644 --- a/lisp/w32-fns.el +++ b/lisp/w32-fns.el @@ -345,4 +345,40 @@ CODING-SYSTEM, use \\[list-coding-systems]." ("black" 0 0 0 0)) "A list of VGA console colors, their indices and 16-bit RGB values.") +;; w32term.c sets this to nil, but if it has been overridden before we +;; get here, we should not try to set it again. +(if (not w32-charset-info-alist) + (progn (setq w32-charset-info-alist + '(("iso8859-1" . (w32-charset-ansi . 1252)) + ("jisx0208-sjis" . (w32-charset-shiftjis . 932)) + ("jisx0201-latin" . (w32-charset-shiftjis . 932)) + ("jisx0201-katakana" . (w32-charset-shiftjis . 932)) + ("ksc5601.1987" . (w32-charset-hangul . 949)) + ("big5" . (w32-charset-chinesebig5 . 950)) + ("gb2312" . (w32-charset-gb2312 . 936)) + ("ms-symbol" . (w32-charset-symbol . nil)) + ("ms-oem" . (w32-charset-oem . 437)) + ("ms-oemlatin" . (w32-charset-oem . 850)))) + (if (boundp 'w32-extra_charsets-defined) + (add-to-list + 'w32-charset-info-alist + '(("iso8859-2" . (w32-charset-easteurope . 28592)) + ("iso8859-3" . (w32-charset-turkish . 28593)) + ("iso8859-4" . (w32-charset-baltic . 28594)) + ("iso8859-5" . (w32-charset-russian . 28595)) + ("iso8859-6" . (w32-charset-arabic . 28596)) + ("iso8859-7" . (w32-charset-greek . 28597)) + ("iso8859-8" . (w32-charset-hebrew . 1255)) + ("iso8859-9" . (w32-charset-turkish . 1254)) + ("iso8859-13" . (w32-charset-baltic . 1257)) + ("koi8-r" . (w32-charset-russian . 20866)) + ("tis620" . (w32-charset-thai . 874)) + ("ksc5601.1992" . (w32-charset-johab . 1361)) + ("mac" . (w32-charset-mac . nil))))) + (if (boundp 'w32-unicode-charset-defined) + (add-to-list + 'w32-charset-info-alist + '(("iso10646" . (w32-charset-unicode . t)) + ("unicode" . (w32-charset-unicode . t))))))) + ;;; w32-fns.el ends here |