/[emacs]/emacs/src/w32fns.c
ViewVC logotype

Diff of /emacs/src/w32fns.c

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

revision 1.136 by jasonr, Sun Nov 18 21:57:18 2001 UTC revision 1.137 by jasonr, Tue Nov 20 22:00:54 2001 UTC
# Line 177  Lisp_Object Vx_pixel_size_width_font_reg Line 177  Lisp_Object Vx_pixel_size_width_font_reg
177  /* Alist of bdf fonts and the files that define them.  */  /* Alist of bdf fonts and the files that define them.  */
178  Lisp_Object Vw32_bdf_filename_alist;  Lisp_Object Vw32_bdf_filename_alist;
179    
 Lisp_Object Vw32_system_coding_system;  
   
180  /* A flag to control whether fonts are matched strictly or not.  */  /* A flag to control whether fonts are matched strictly or not.  */
181  int w32_strict_fontnames;  int w32_strict_fontnames;
182    
# Line 6242  w32_to_x_font (lplogfont, lpxstr, len, s Line 6240  w32_to_x_font (lplogfont, lpxstr, len, s
6240    else    else
6241      fonttype = "unknown";      fonttype = "unknown";
6242    
6243    setup_coding_system (Fcheck_coding_system (Vw32_system_coding_system),    setup_coding_system (Fcheck_coding_system (Vlocale_coding_system),
6244                         &coding);                         &coding);
6245    coding.src_multibyte = 0;    coding.src_multibyte = 0;
6246    coding.dst_multibyte = 1;    coding.dst_multibyte = 1;
# Line 6374  x_to_w32_font (lpxstr, lplogfont) Line 6372  x_to_w32_font (lpxstr, lplogfont)
6372            unsigned char *buf;            unsigned char *buf;
6373    
6374            setup_coding_system            setup_coding_system
6375              (Fcheck_coding_system (Vw32_system_coding_system), &coding);              (Fcheck_coding_system (Vlocale_coding_system), &coding);
6376            coding.src_multibyte = 1;            coding.src_multibyte = 1;
6377            coding.dst_multibyte = 1;            coding.dst_multibyte = 1;
6378            bufsize = encoding_buffer_size (&coding, strlen (name));            bufsize = encoding_buffer_size (&coding, strlen (name));
# Line 14493  Set this to nil to get the old behaviour Line 14491  Set this to nil to get the old behaviour
14491  only be necessary if the default setting causes problems.  */);  only be necessary if the default setting causes problems.  */);
14492    w32_strict_painting = 1;    w32_strict_painting = 1;
14493    
   DEFVAR_LISP ("w32-system-coding-system",  
                &Vw32_system_coding_system,  
                doc: /* Coding system used by Windows system functions, such as for font names.  */);  
   Vw32_system_coding_system = Qnil;  
   
14494    DEFVAR_LISP ("w32-charset-info-alist",    DEFVAR_LISP ("w32-charset-info-alist",
14495                 &Vw32_charset_info_alist,                 &Vw32_charset_info_alist,
14496                 doc: /* Alist linking Emacs character sets to Windows fonts and codepages.                 doc: /* Alist linking Emacs character sets to Windows fonts and codepages.

Legend:
Removed from v.1.136  
changed lines
  Added in v.1.137

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