/[emacs]/emacs/lisp/w32-fns.el
ViewVC logotype

Diff of /emacs/lisp/w32-fns.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.50 by eliz, Wed Mar 6 18:21:10 2002 UTC revision 1.50.2.1 by miles, Fri Apr 4 06:20:12 2003 UTC
# Line 359  bit output with no translation." Line 359  bit output with no translation."
359                 (cons xlfd-charset (cons windows-charset codepage)))                 (cons xlfd-charset (cons windows-charset codepage)))
360    )    )
361    
362  (w32-add-charset-info "iso8859-1" 'w32-charset-ansi 1252)  ;; 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.
364  (w32-add-charset-info "iso8859-14" 'w32-charset-ansi  28604)  (w32-add-charset-info "iso8859-14" 'w32-charset-ansi  28604)
365  (w32-add-charset-info "iso8859-15" 'w32-charset-ansi  28605)  (w32-add-charset-info "iso8859-15" 'w32-charset-ansi  28605)
 (w32-add-charset-info "jisx0208-sjis" 'w32-charset-shiftjis 932)  
366  (w32-add-charset-info "jisx0201-latin" 'w32-charset-shiftjis 932)  (w32-add-charset-info "jisx0201-latin" 'w32-charset-shiftjis 932)
367  (w32-add-charset-info "jisx0201-katakana" 'w32-charset-shiftjis 932)  (w32-add-charset-info "jisx0201-katakana" 'w32-charset-shiftjis 932)
368    (w32-add-charset-info "jisx0208-sjis" 'w32-charset-shiftjis 932)
369  (w32-add-charset-info "ksc5601.1987" 'w32-charset-hangeul 949)  (w32-add-charset-info "ksc5601.1987" 'w32-charset-hangeul 949)
370  (w32-add-charset-info "big5" 'w32-charset-chinesebig5 950)  (w32-add-charset-info "big5" 'w32-charset-chinesebig5 950)
371  (w32-add-charset-info "gb2312" 'w32-charset-gb2312 936)  (w32-add-charset-info "gb2312" 'w32-charset-gb2312 936)
# Line 376  bit output with no translation." Line 377  bit output with no translation."
377        (w32-add-charset-info "iso8859-2" 'w32-charset-easteurope 28592)        (w32-add-charset-info "iso8859-2" 'w32-charset-easteurope 28592)
378        (w32-add-charset-info "iso8859-3" 'w32-charset-turkish 28593)        (w32-add-charset-info "iso8859-3" 'w32-charset-turkish 28593)
379        (w32-add-charset-info "iso8859-4" 'w32-charset-baltic 28594)        (w32-add-charset-info "iso8859-4" 'w32-charset-baltic 28594)
       (w32-add-charset-info "iso8859-5" 'w32-charset-russian 28595)  
380        (w32-add-charset-info "iso8859-6" 'w32-charset-arabic 28596)        (w32-add-charset-info "iso8859-6" 'w32-charset-arabic 28596)
381        (w32-add-charset-info "iso8859-7" 'w32-charset-greek 28597)        (w32-add-charset-info "iso8859-7" 'w32-charset-greek 28597)
382        (w32-add-charset-info "iso8859-8" 'w32-charset-hebrew 1255)        (w32-add-charset-info "iso8859-8" 'w32-charset-hebrew 1255)
383        (w32-add-charset-info "iso8859-9" 'w32-charset-turkish 1254)        (w32-add-charset-info "iso8859-9" 'w32-charset-turkish 1254)
384        (w32-add-charset-info "iso8859-13" 'w32-charset-baltic 1257)        (w32-add-charset-info "iso8859-13" 'w32-charset-baltic 1257)
385        (w32-add-charset-info "koi8-r" 'w32-charset-russian 20866)        (w32-add-charset-info "koi8-r" 'w32-charset-russian 20866)
386          (w32-add-charset-info "iso8859-5" 'w32-charset-russian 28595)
387        (w32-add-charset-info "tis620" 'w32-charset-thai 874)        (w32-add-charset-info "tis620" 'w32-charset-thai 874)
388        (w32-add-charset-info "ksc5601.1992" 'w32-charset-johab 1361)        (w32-add-charset-info "ksc5601.1992" 'w32-charset-johab 1361)
389        (w32-add-charset-info "mac" 'w32-charset-mac nil)))        (w32-add-charset-info "mac" 'w32-charset-mac nil)))
390  (if (boundp 'w32-unicode-charset-defined)  (if (boundp 'w32-unicode-charset-defined)
391      (progn      (progn
392        (w32-add-charset-info "iso10646-1" 'w32-charset-unicode t)        (w32-add-charset-info "unicode" 'w32-charset-unicode t)
393        (w32-add-charset-info "unicode" 'w32-charset-unicode t))        (w32-add-charset-info "iso10646-1" 'w32-charset-unicode t))
394    ;; If unicode windows charset is not defined, use ansi fonts.    ;; If unicode windows charset is not defined, use ansi fonts.
395    (w32-add-charset-info "iso10646-1" 'w32-charset-ansi t))    (w32-add-charset-info "iso10646-1" 'w32-charset-ansi t))
396    (w32-add-charset-info "iso8859-1" 'w32-charset-ansi 1252)
397    
398  (make-obsolete-variable 'w32-enable-italics  (make-obsolete-variable 'w32-enable-italics
399                          'w32-enable-synthesized-fonts "21.1")                          'w32-enable-synthesized-fonts "21.1")

Legend:
Removed from v.1.50  
changed lines
  Added in v.1.50.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26