/[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.131 by jasonr, Sat Nov 10 13:51:02 2001 UTC revision 1.132 by jasonr, Tue Nov 13 00:02:55 2001 UTC
# Line 52  Boston, MA 02111-1307, USA.  */ Line 52  Boston, MA 02111-1307, USA.  */
52  #include <shellapi.h>  #include <shellapi.h>
53  #include <ctype.h>  #include <ctype.h>
54    
 #define max(a, b) ((a) > (b) ? (a) : (b))  
   
55  extern void free_frame_menubar ();  extern void free_frame_menubar ();
56  extern double atof ();  extern double atof ();
57  extern int w32_console_toggle_lock_key (int vk_code, Lisp_Object new_state);  extern int w32_console_toggle_lock_key (int vk_code, Lisp_Object new_state);
# Line 1068  x_report_frame_params (f, alistptr) Line 1066  x_report_frame_params (f, alistptr)
1066  }  }
1067    
1068    
1069  DEFUN ("w32-define-rgb-color", Fw32_define_rgb_color, Sw32_define_rgb_color, 4, 4, 0,  DEFUN ("w32-define-rgb-color", Fw32_define_rgb_color,
1070    "Convert RGB numbers to a windows color reference and associate with NAME (a string).\n\         Sw32_define_rgb_color, 4, 4, 0,
1071  This adds or updates a named color to w32-color-map, making it available for use.\n\         doc: /* Convert RGB numbers to a windows color reference and associate with NAME.
1072  The original entry's RGB ref is returned, or nil if the entry is new.")  This adds or updates a named color to w32-color-map, making it
1073    available for use.  The original entry's RGB ref is returned, or nil
1074    if the entry is new.  */)
1075      (red, green, blue, name)      (red, green, blue, name)
1076      Lisp_Object red, green, blue, name;      Lisp_Object red, green, blue, name;
1077  {  {
# Line 1106  The original entry's RGB ref is returned Line 1106  The original entry's RGB ref is returned
1106    return (oldrgb);    return (oldrgb);
1107  }  }
1108    
1109  DEFUN ("w32-load-color-file", Fw32_load_color_file, Sw32_load_color_file, 1, 1, 0,  DEFUN ("w32-load-color-file", Fw32_load_color_file,
1110    "Create an alist of color entries from an external file (ie. rgb.txt).\n\         Sw32_load_color_file, 1, 1, 0,
1111  Assign this value to w32-color-map to replace the existing color map.\n\         doc: /* Create an alist of color entries from an external file.
1112  \  Assign this value to w32-color-map to replace the existing color map.
1113  The file should define one named RGB color per line like so:\  
1114    R G B   name\n\  The file should define one named RGB color per line like so:
1115  where R,G,B are numbers between 0 and 255 and name is an arbitrary string.")    R G B   name
1116    where R,G,B are numbers between 0 and 255 and name is an arbitrary string.  */)
1117      (filename)      (filename)
1118      Lisp_Object filename;      Lisp_Object filename;
1119  {  {
# Line 1404  colormap_t w32_color_map[] = Line 1405  colormap_t w32_color_map[] =
1405  };  };
1406    
1407  DEFUN ("w32-default-color-map", Fw32_default_color_map, Sw32_default_color_map,  DEFUN ("w32-default-color-map", Fw32_default_color_map, Sw32_default_color_map,
1408         0, 0, 0, "Return the default color map.")         0, 0, 0, doc: /* Return the default color map.  */)
1409       ()       ()
1410  {  {
1411    int i;    int i;
# Line 2915  validate_x_resource_name () Line 2916  validate_x_resource_name ()
2916  extern char *x_get_string_resource ();  extern char *x_get_string_resource ();
2917    
2918  DEFUN ("x-get-resource", Fx_get_resource, Sx_get_resource, 2, 4, 0,  DEFUN ("x-get-resource", Fx_get_resource, Sx_get_resource, 2, 4, 0,
2919    "Return the value of ATTRIBUTE, of class CLASS, from the X defaults database.\n\         doc: /* Return the value of ATTRIBUTE, of class CLASS, from the X defaults database.
2920  This uses `INSTANCE.ATTRIBUTE' as the key and `Emacs.CLASS' as the\n\  This uses `INSTANCE.ATTRIBUTE' as the key and `Emacs.CLASS' as the
2921  class, where INSTANCE is the name under which Emacs was invoked, or\n\  class, where INSTANCE is the name under which Emacs was invoked, or
2922  the name specified by the `-name' or `-rn' command-line arguments.\n\  the name specified by the `-name' or `-rn' command-line arguments.
2923  \n\  
2924  The optional arguments COMPONENT and SUBCLASS add to the key and the\n\  The optional arguments COMPONENT and SUBCLASS add to the key and the
2925  class, respectively.  You must specify both of them or neither.\n\  class, respectively.  You must specify both of them or neither.
2926  If you specify them, the key is `INSTANCE.COMPONENT.ATTRIBUTE'\n\  If you specify them, the key is `INSTANCE.COMPONENT.ATTRIBUTE'
2927  and the class is `Emacs.CLASS.SUBCLASS'.")  and the class is `Emacs.CLASS.SUBCLASS'.  */)
2928    (attribute, class, component, subclass)    (attribute, class, component, subclass)
2929       Lisp_Object attribute, class, component, subclass;       Lisp_Object attribute, class, component, subclass;
2930  {  {
# Line 3127  x_default_parameter (f, alist, prop, def Line 3128  x_default_parameter (f, alist, prop, def
3128  }  }
3129    
3130  DEFUN ("x-parse-geometry", Fx_parse_geometry, Sx_parse_geometry, 1, 1, 0,  DEFUN ("x-parse-geometry", Fx_parse_geometry, Sx_parse_geometry, 1, 1, 0,
3131         "Parse an X-style geometry string STRING.\n\         doc: /* Parse an X-style geometry string STRING.
3132  Returns an alist of the form ((top . TOP), (left . LEFT) ... ).\n\  Returns an alist of the form ((top . TOP), (left . LEFT) ... ).
3133  The properties returned may include `top', `left', `height', and `width'.\n\  The properties returned may include `top', `left', `height', and `width'.
3134  The value of `left' or `top' may be an integer,\n\  The value of `left' or `top' may be an integer,
3135  or a list (+ N) meaning N pixels relative to top/left corner,\n\  or a list (+ N) meaning N pixels relative to top/left corner,
3136  or a list (- N) meaning -N pixels relative to bottom/right corner.")  or a list (- N) meaning -N pixels relative to bottom/right corner.  */)
3137       (string)       (string)
3138       Lisp_Object string;       Lisp_Object string;
3139  {  {
# Line 5184  unwind_create_frame (frame) Line 5185  unwind_create_frame (frame)
5185    
5186  DEFUN ("x-create-frame", Fx_create_frame, Sx_create_frame,  DEFUN ("x-create-frame", Fx_create_frame, Sx_create_frame,
5187         1, 1, 0,         1, 1, 0,
5188    "Make a new window, which is called a \"frame\" in Emacs terms.\n\         doc: /* Make a new window, which is called a \"frame\" in Emacs terms.
5189  Returns an Emacs frame object.\n\  Returns an Emacs frame object.
5190  ALIST is an alist of frame parameters.\n\  ALIST is an alist of frame parameters.
5191  If the parameters specify that the frame should not have a minibuffer,\n\  If the parameters specify that the frame should not have a minibuffer,
5192  and do not specify a specific minibuffer window to use,\n\  and do not specify a specific minibuffer window to use,
5193  then `default-minibuffer-frame' must be a frame whose minibuffer can\n\  then `default-minibuffer-frame' must be a frame whose minibuffer can
5194  be shared by the new frame.\n\  be shared by the new frame.
5195  \n\  
5196  This function is an internal primitive--use `make-frame' instead.")  This function is an internal primitive--use `make-frame' instead.  */)
5197    (parms)    (parms)
5198       Lisp_Object parms;       Lisp_Object parms;
5199  {  {
# Line 5545  x_get_focus_frame (frame) Line 5546  x_get_focus_frame (frame)
5546  }  }
5547    
5548  DEFUN ("w32-focus-frame", Fw32_focus_frame, Sw32_focus_frame, 1, 1, 0,  DEFUN ("w32-focus-frame", Fw32_focus_frame, Sw32_focus_frame, 1, 1, 0,
5549    "Give FRAME input focus, raising to foreground if necessary.")         doc: /* Give FRAME input focus, raising to foreground if necessary.  */)
5550    (frame)    (frame)
5551       Lisp_Object frame;       Lisp_Object frame;
5552  {  {
# Line 7180  w32_find_bdf_fonts_in_dir (Lisp_Object d Line 7181  w32_find_bdf_fonts_in_dir (Lisp_Object d
7181    
7182  DEFUN ("w32-find-bdf-fonts", Fw32_find_bdf_fonts, Sw32_find_bdf_fonts,  DEFUN ("w32-find-bdf-fonts", Fw32_find_bdf_fonts, Sw32_find_bdf_fonts,
7183         1, 1, 0,         1, 1, 0,
7184         "Return a list of BDF fonts in DIR, suitable for appending to\n\         doc: /* Return a list of BDF fonts in DIR, suitable for appending to
7185  w32-bdf-filename-alist.  Fonts which do not contain an xlfd description\n\  w32-bdf-filename-alist.  Fonts which do not contain an xlfd description
7186  will not be included in the list. DIR may be a list of directories.")  will not be included in the list. DIR may be a list of directories.  */)
7187       (directory)       (directory)
7188       Lisp_Object directory;       Lisp_Object directory;
7189  {  {
# Line 7207  will not be included in the list. DIR ma Line 7208  will not be included in the list. DIR ma
7208    
7209    
7210  DEFUN ("xw-color-defined-p", Fxw_color_defined_p, Sxw_color_defined_p, 1, 2, 0,  DEFUN ("xw-color-defined-p", Fxw_color_defined_p, Sxw_color_defined_p, 1, 2, 0,
7211    "Internal function called by `color-defined-p', which see.")         doc: /* Internal function called by `color-defined-p', which see.  */)
7212    (color, frame)    (color, frame)
7213       Lisp_Object color, frame;       Lisp_Object color, frame;
7214  {  {
# Line 7223  DEFUN ("xw-color-defined-p", Fxw_color_d Line 7224  DEFUN ("xw-color-defined-p", Fxw_color_d
7224  }  }
7225    
7226  DEFUN ("xw-color-values", Fxw_color_values, Sxw_color_values, 1, 2, 0,  DEFUN ("xw-color-values", Fxw_color_values, Sxw_color_values, 1, 2, 0,
7227    "Internal function called by `color-values', which see.")         doc: /* Internal function called by `color-values', which see.  */)
7228    (color, frame)    (color, frame)
7229       Lisp_Object color, frame;       Lisp_Object color, frame;
7230  {  {
# Line 7249  DEFUN ("xw-color-values", Fxw_color_valu Line 7250  DEFUN ("xw-color-values", Fxw_color_valu
7250  }  }
7251    
7252  DEFUN ("xw-display-color-p", Fxw_display_color_p, Sxw_display_color_p, 0, 1, 0,  DEFUN ("xw-display-color-p", Fxw_display_color_p, Sxw_display_color_p, 0, 1, 0,
7253    "Internal function called by `display-color-p', which see.")         doc: /* Internal function called by `display-color-p', which see.  */)
7254    (display)    (display)
7255       Lisp_Object display;       Lisp_Object display;
7256  {  {
# Line 7261  DEFUN ("xw-display-color-p", Fxw_display Line 7262  DEFUN ("xw-display-color-p", Fxw_display
7262    return Qt;    return Qt;
7263  }  }
7264    
7265  DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p, Sx_display_grayscale_p,  DEFUN ("x-display-grayscale-p", Fx_display_grayscale_p,
7266    0, 1, 0,         Sx_display_grayscale_p, 0, 1, 0,
7267    "Return t if the X display supports shades of gray.\n\         doc: /* Return t if the X display supports shades of gray.
7268  Note that color displays do support shades of gray.\n\  Note that color displays do support shades of gray.
7269  The optional argument DISPLAY specifies which display to ask about.\n\  The optional argument DISPLAY specifies which display to ask about.
7270  DISPLAY should be either a frame or a display name (a string).\n\  DISPLAY should be either a frame or a display name (a string).
7271  If omitted or nil, that stands for the selected frame's display.")  If omitted or nil, that stands for the selected frame's display.  */)
7272    (display)    (display)
7273       Lisp_Object display;       Lisp_Object display;
7274  {  {
# Line 7279  If omitted or nil, that stands for the s Line 7280  If omitted or nil, that stands for the s
7280    return Qt;    return Qt;
7281  }  }
7282    
7283  DEFUN ("x-display-pixel-width", Fx_display_pixel_width, Sx_display_pixel_width,  DEFUN ("x-display-pixel-width", Fx_display_pixel_width,
7284    0, 1, 0,         Sx_display_pixel_width, 0, 1, 0,
7285    "Returns the width in pixels of the X display DISPLAY.\n\         doc: /* Returns the width in pixels of DISPLAY.
7286  The optional argument DISPLAY specifies which display to ask about.\n\  The optional argument DISPLAY specifies which display to ask about.
7287  DISPLAY should be either a frame or a display name (a string).\n\  DISPLAY should be either a frame or a display name (a string).
7288  If omitted or nil, that stands for the selected frame's display.")  If omitted or nil, that stands for the selected frame's display.  */)
7289    (display)    (display)
7290       Lisp_Object display;       Lisp_Object display;
7291  {  {
# Line 7294  If omitted or nil, that stands for the s Line 7295  If omitted or nil, that stands for the s
7295  }  }
7296    
7297  DEFUN ("x-display-pixel-height", Fx_display_pixel_height,  DEFUN ("x-display-pixel-height", Fx_display_pixel_height,
7298    Sx_display_pixel_height, 0, 1, 0,         Sx_display_pixel_height, 0, 1, 0,
7299    "Returns the height in pixels of the X display DISPLAY.\n\         doc: /* Returns the height in pixels of DISPLAY.
7300  The optional argument DISPLAY specifies which display to ask about.\n\  The optional argument DISPLAY specifies which display to ask about.
7301  DISPLAY should be either a frame or a display name (a string).\n\  DISPLAY should be either a frame or a display name (a string).
7302  If omitted or nil, that stands for the selected frame's display.")  If omitted or nil, that stands for the selected frame's display.  */)
7303    (display)    (display)
7304       Lisp_Object display;       Lisp_Object display;
7305  {  {
# Line 7308  If omitted or nil, that stands for the s Line 7309  If omitted or nil, that stands for the s
7309  }  }
7310    
7311  DEFUN ("x-display-planes", Fx_display_planes, Sx_display_planes,  DEFUN ("x-display-planes", Fx_display_planes, Sx_display_planes,
7312    0, 1, 0,         0, 1, 0,
7313    "Returns the number of bitplanes of the display DISPLAY.\n\         doc: /* Returns the number of bitplanes of DISPLAY.
7314  The optional argument DISPLAY specifies which display to ask about.\n\  The optional argument DISPLAY specifies which display to ask about.
7315  DISPLAY should be either a frame or a display name (a string).\n\  DISPLAY should be either a frame or a display name (a string).
7316  If omitted or nil, that stands for the selected frame's display.")  If omitted or nil, that stands for the selected frame's display.  */)
7317    (display)    (display)
7318       Lisp_Object display;       Lisp_Object display;
7319  {  {
# Line 7322  If omitted or nil, that stands for the s Line 7323  If omitted or nil, that stands for the s
7323  }  }
7324    
7325  DEFUN ("x-display-color-cells", Fx_display_color_cells, Sx_display_color_cells,  DEFUN ("x-display-color-cells", Fx_display_color_cells, Sx_display_color_cells,
7326    0, 1, 0,         0, 1, 0,
7327    "Returns the number of color cells of the display DISPLAY.\n\         doc: /* Returns the number of color cells of DISPLAY.
7328  The optional argument DISPLAY specifies which display to ask about.\n\  The optional argument DISPLAY specifies which display to ask about.
7329  DISPLAY should be either a frame or a display name (a string).\n\  DISPLAY should be either a frame or a display name (a string).
7330  If omitted or nil, that stands for the selected frame's display.")  If omitted or nil, that stands for the selected frame's display.  */)
7331    (display)    (display)
7332       Lisp_Object display;       Lisp_Object display;
7333  {  {
# Line 7350  If omitted or nil, that stands for the s Line 7351  If omitted or nil, that stands for the s
7351    
7352  DEFUN ("x-server-max-request-size", Fx_server_max_request_size,  DEFUN ("x-server-max-request-size", Fx_server_max_request_size,
7353         Sx_server_max_request_size,         Sx_server_max_request_size,
7354    0, 1, 0,         0, 1, 0,
7355    "Returns the maximum request size of the server of display DISPLAY.\n\         doc: /* Returns the maximum request size of the server of DISPLAY.
7356  The optional argument DISPLAY specifies which display to ask about.\n\  The optional argument DISPLAY specifies which display to ask about.
7357  DISPLAY should be either a frame or a display name (a string).\n\  DISPLAY should be either a frame or a display name (a string).
7358  If omitted or nil, that stands for the selected frame's display.")  If omitted or nil, that stands for the selected frame's display.  */)
7359    (display)    (display)
7360       Lisp_Object display;       Lisp_Object display;
7361  {  {
# Line 7364  If omitted or nil, that stands for the s Line 7365  If omitted or nil, that stands for the s
7365  }  }
7366    
7367  DEFUN ("x-server-vendor", Fx_server_vendor, Sx_server_vendor, 0, 1, 0,  DEFUN ("x-server-vendor", Fx_server_vendor, Sx_server_vendor, 0, 1, 0,
7368    "Returns the vendor ID string of the W32 system (Microsoft).\n\         doc: /* Returns the vendor ID string of the W32 system (Microsoft).
7369  The optional argument DISPLAY specifies which display to ask about.\n\  The optional argument DISPLAY specifies which display to ask about.
7370  DISPLAY should be either a frame or a display name (a string).\n\  DISPLAY should be either a frame or a display name (a string).
7371  If omitted or nil, that stands for the selected frame's display.")  If omitted or nil, that stands for the selected frame's display.  */)
7372    (display)    (display)
7373       Lisp_Object display;       Lisp_Object display;
7374  {  {
# Line 7375  If omitted or nil, that stands for the s Line 7376  If omitted or nil, that stands for the s
7376  }  }
7377    
7378  DEFUN ("x-server-version", Fx_server_version, Sx_server_version, 0, 1, 0,  DEFUN ("x-server-version", Fx_server_version, Sx_server_version, 0, 1, 0,
7379    "Returns the version numbers of the server of display DISPLAY.\n\         doc: /* Returns the version numbers of the server of DISPLAY.
7380  The value is a list of three integers: the major and minor\n\  The value is a list of three integers: the major and minor
7381  version numbers, and the vendor-specific release\n\  version numbers, and the vendor-specific release
7382  number.  See also the function `x-server-vendor'.\n\n\  number.  See also the function `x-server-vendor'.
7383  The optional argument DISPLAY specifies which display to ask about.\n\  
7384  DISPLAY should be either a frame or a display name (a string).\n\  The optional argument DISPLAY specifies which display to ask about.
7385  If omitted or nil, that stands for the selected frame's display.")  DISPLAY should be either a frame or a display name (a string).
7386    If omitted or nil, that stands for the selected frame's display.  */)
7387    (display)    (display)
7388       Lisp_Object display;       Lisp_Object display;
7389  {  {
# Line 7391  If omitted or nil, that stands for the s Line 7393  If omitted or nil, that stands for the s
7393  }  }
7394    
7395  DEFUN ("x-display-screens", Fx_display_screens, Sx_display_screens, 0, 1, 0,  DEFUN ("x-display-screens", Fx_display_screens, Sx_display_screens, 0, 1, 0,
7396    "Returns the number of screens on the server of display DISPLAY.\n\         doc: /* Returns the number of screens on the server of DISPLAY.
7397  The optional argument DISPLAY specifies which display to ask about.\n\  The optional argument DISPLAY specifies which display to ask about.
7398  DISPLAY should be either a frame or a display name (a string).\n\  DISPLAY should be either a frame or a display name (a string).
7399  If omitted or nil, that stands for the selected frame's display.")  If omitted or nil, that stands for the selected frame's display.  */)
7400    (display)    (display)
7401       Lisp_Object display;       Lisp_Object display;
7402  {  {
7403    return make_number (1);    return make_number (1);
7404  }  }
7405    
7406  DEFUN ("x-display-mm-height", Fx_display_mm_height, Sx_display_mm_height, 0, 1, 0,  DEFUN ("x-display-mm-height", Fx_display_mm_height,
7407    "Returns the height in millimeters of the X display DISPLAY.\n\         Sx_display_mm_height, 0, 1, 0,
7408  The optional argument DISPLAY specifies which display to ask about.\n\         doc: /* Returns the height in millimeters of DISPLAY.
7409  DISPLAY should be either a frame or a display name (a string).\n\  The optional argument DISPLAY specifies which display to ask about.
7410  If omitted or nil, that stands for the selected frame's display.")  DISPLAY should be either a frame or a display name (a string).
7411    If omitted or nil, that stands for the selected frame's display.  */)
7412    (display)    (display)
7413       Lisp_Object display;       Lisp_Object display;
7414  {  {
# Line 7423  If omitted or nil, that stands for the s Line 7426  If omitted or nil, that stands for the s
7426  }  }
7427    
7428  DEFUN ("x-display-mm-width", Fx_display_mm_width, Sx_display_mm_width, 0, 1, 0,  DEFUN ("x-display-mm-width", Fx_display_mm_width, Sx_display_mm_width, 0, 1, 0,
7429    "Returns the width in millimeters of the X display DISPLAY.\n\         doc: /* Returns the width in millimeters of DISPLAY.
7430  The optional argument DISPLAY specifies which display to ask about.\n\  The optional argument DISPLAY specifies which display to ask about.
7431  DISPLAY should be either a frame or a display name (a string).\n\  DISPLAY should be either a frame or a display name (a string).
7432  If omitted or nil, that stands for the selected frame's display.")  If omitted or nil, that stands for the selected frame's display.  */)
7433    (display)    (display)
7434       Lisp_Object display;       Lisp_Object display;
7435  {  {
# Line 7445  If omitted or nil, that stands for the s Line 7448  If omitted or nil, that stands for the s
7448  }  }
7449    
7450  DEFUN ("x-display-backing-store", Fx_display_backing_store,  DEFUN ("x-display-backing-store", Fx_display_backing_store,
7451    Sx_display_backing_store, 0, 1, 0,         Sx_display_backing_store, 0, 1, 0,
7452    "Returns an indication of whether display DISPLAY does backing store.\n\         doc: /* Returns an indication of whether DISPLAY does backing store.
7453  The value may be `always', `when-mapped', or `not-useful'.\n\  The value may be `always', `when-mapped', or `not-useful'.
7454  The optional argument DISPLAY specifies which display to ask about.\n\  The optional argument DISPLAY specifies which display to ask about.
7455  DISPLAY should be either a frame or a display name (a string).\n\  DISPLAY should be either a frame or a display name (a string).
7456  If omitted or nil, that stands for the selected frame's display.")  If omitted or nil, that stands for the selected frame's display.  */)
7457    (display)    (display)
7458       Lisp_Object display;       Lisp_Object display;
7459  {  {
# Line 7458  If omitted or nil, that stands for the s Line 7461  If omitted or nil, that stands for the s
7461  }  }
7462    
7463  DEFUN ("x-display-visual-class", Fx_display_visual_class,  DEFUN ("x-display-visual-class", Fx_display_visual_class,
7464    Sx_display_visual_class, 0, 1, 0,         Sx_display_visual_class, 0, 1, 0,
7465    "Returns the visual class of the display DISPLAY.\n\         doc: /* Returns the visual class of DISPLAY.
7466  The value is one of the symbols `static-gray', `gray-scale',\n\  The value is one of the symbols `static-gray', `gray-scale',
7467  `static-color', `pseudo-color', `true-color', or `direct-color'.\n\n\  `static-color', `pseudo-color', `true-color', or `direct-color'.
7468  The optional argument DISPLAY specifies which display to ask about.\n\  
7469  DISPLAY should be either a frame or a display name (a string).\n\  The optional argument DISPLAY specifies which display to ask about.
7470  If omitted or nil, that stands for the selected frame's display.")  DISPLAY should be either a frame or a display name (a string).
7471    If omitted or nil, that stands for the selected frame's display.  */)
7472          (display)          (display)
7473       Lisp_Object display;       Lisp_Object display;
7474  {  {
# Line 7484  If omitted or nil, that stands for the s Line 7488  If omitted or nil, that stands for the s
7488  }  }
7489    
7490  DEFUN ("x-display-save-under", Fx_display_save_under,  DEFUN ("x-display-save-under", Fx_display_save_under,
7491    Sx_display_save_under, 0, 1, 0,         Sx_display_save_under, 0, 1, 0,
7492    "Returns t if the display DISPLAY supports the save-under feature.\n\         doc: /* Returns t if DISPLAY supports the save-under feature.
7493  The optional argument DISPLAY specifies which display to ask about.\n\  The optional argument DISPLAY specifies which display to ask about.
7494  DISPLAY should be either a frame or a display name (a string).\n\  DISPLAY should be either a frame or a display name (a string).
7495  If omitted or nil, that stands for the selected frame's display.")  If omitted or nil, that stands for the selected frame's display.  */)
7496    (display)    (display)
7497       Lisp_Object display;       Lisp_Object display;
7498  {  {
# Line 7570  x_display_info_for_name (name) Line 7574  x_display_info_for_name (name)
7574  }  }
7575    
7576  DEFUN ("x-open-connection", Fx_open_connection, Sx_open_connection,  DEFUN ("x-open-connection", Fx_open_connection, Sx_open_connection,
7577         1, 3, 0, "Open a connection to a server.\n\         1, 3, 0, doc: /* Open a connection to a server.
7578  DISPLAY is the name of the display to connect to.\n\  DISPLAY is the name of the display to connect to.
7579  Optional second arg XRM-STRING is a string of resources in xrdb format.\n\  Optional second arg XRM-STRING is a string of resources in xrdb format.
7580  If the optional third arg MUST-SUCCEED is non-nil,\n\  If the optional third arg MUST-SUCCEED is non-nil,
7581  terminate Emacs if we can't open the connection.")  terminate Emacs if we can't open the connection.  */)
7582    (display, xrm_string, must_succeed)    (display, xrm_string, must_succeed)
7583       Lisp_Object display, xrm_string, must_succeed;       Lisp_Object display, xrm_string, must_succeed;
7584  {  {
7585    unsigned char *xrm_option;    unsigned char *xrm_option;
7586    struct w32_display_info *dpyinfo;    struct w32_display_info *dpyinfo;
7587    
7588      /* If initialization has already been done, return now to avoid
7589         overwriting critical parts of one_w32_display_info.  */
7590      if (w32_in_use)
7591        return Qnil;
7592    
7593    CHECK_STRING (display);    CHECK_STRING (display);
7594    if (! NILP (xrm_string))    if (! NILP (xrm_string))
7595      CHECK_STRING (xrm_string);      CHECK_STRING (xrm_string);
# Line 7651  terminate Emacs if we can't open the con Line 7660  terminate Emacs if we can't open the con
7660    
7661  DEFUN ("x-close-connection", Fx_close_connection,  DEFUN ("x-close-connection", Fx_close_connection,
7662         Sx_close_connection, 1, 1, 0,         Sx_close_connection, 1, 1, 0,
7663     "Close the connection to DISPLAY's server.\n\         doc: /* Close the connection to DISPLAY's server.
7664  For DISPLAY, specify either a frame or a display name (a string).\n\  For DISPLAY, specify either a frame or a display name (a string).
7665  If DISPLAY is nil, that stands for the selected frame's display.")  If DISPLAY is nil, that stands for the selected frame's display.  */)
7666    (display)    (display)
7667    Lisp_Object display;    Lisp_Object display;
7668  {  {
# Line 7682  If DISPLAY is nil, that stands for the s Line 7691  If DISPLAY is nil, that stands for the s
7691  }  }
7692    
7693  DEFUN ("x-display-list", Fx_display_list, Sx_display_list, 0, 0, 0,  DEFUN ("x-display-list", Fx_display_list, Sx_display_list, 0, 0, 0,
7694    "Return the list of display names that Emacs has connections to.")         doc: /* Return the list of display names that Emacs has connections to.  */)
7695    ()    ()
7696  {  {
7697    Lisp_Object tail, result;    Lisp_Object tail, result;
# Line 7695  DEFUN ("x-display-list", Fx_display_list Line 7704  DEFUN ("x-display-list", Fx_display_list
7704  }  }
7705    
7706  DEFUN ("x-synchronize", Fx_synchronize, Sx_synchronize, 1, 2, 0,  DEFUN ("x-synchronize", Fx_synchronize, Sx_synchronize, 1, 2, 0,
7707     "If ON is non-nil, report errors as soon as the erring request is made.\n\         doc: /* This is a noop on W32 systems. */)
 If ON is nil, allow buffering of requests.\n\  
 This is a noop on W32 systems.\n\  
 The optional second argument DISPLAY specifies which display to act on.\n\  
 DISPLAY should be either a frame or a display name (a string).\n\  
 If DISPLAY is omitted or nil, that stands for the selected frame's display.")  
7708    (on, display)    (on, display)
7709      Lisp_Object display, on;      Lisp_Object display, on;
7710  {  {
# Line 8367  clear_image_cache (f, force_p) Line 8371  clear_image_cache (f, force_p)
8371    
8372  DEFUN ("clear-image-cache", Fclear_image_cache, Sclear_image_cache,  DEFUN ("clear-image-cache", Fclear_image_cache, Sclear_image_cache,
8373         0, 1, 0,         0, 1, 0,
8374    "Clear the image cache of FRAME.\n\         doc: /* Clear the image cache of FRAME.
8375  FRAME nil or omitted means use the selected frame.\n\  FRAME nil or omitted means use the selected frame.
8376  FRAME t means clear the image caches of all frames.")  FRAME t means clear the image caches of all frames.  */)
8377    (frame)    (frame)
8378       Lisp_Object frame;       Lisp_Object frame;
8379  {  {
# Line 12461  x_kill_gs_process (pixmap, f) Line 12465  x_kill_gs_process (pixmap, f)
12465    
12466  DEFUN ("x-change-window-property", Fx_change_window_property,  DEFUN ("x-change-window-property", Fx_change_window_property,
12467         Sx_change_window_property, 2, 3, 0,         Sx_change_window_property, 2, 3, 0,
12468    "Change window property PROP to VALUE on the X window of FRAME.\n\         doc: /* Change window property PROP to VALUE on the X window of FRAME.
12469  PROP and VALUE must be strings.  FRAME nil or omitted means use the\n\  PROP and VALUE must be strings.  FRAME nil or omitted means use the
12470  selected frame.  Value is VALUE.")  selected frame.  Value is VALUE.  */)
12471    (prop, value, frame)    (prop, value, frame)
12472       Lisp_Object frame, prop, value;       Lisp_Object frame, prop, value;
12473  {  {
# Line 12492  selected frame.  Value is VALUE.") Line 12496  selected frame.  Value is VALUE.")
12496    
12497  DEFUN ("x-delete-window-property", Fx_delete_window_property,  DEFUN ("x-delete-window-property", Fx_delete_window_property,
12498         Sx_delete_window_property, 1, 2, 0,         Sx_delete_window_property, 1, 2, 0,
12499    "Remove window property PROP from X window of FRAME.\n\         doc: /* Remove window property PROP from X window of FRAME.
12500  FRAME nil or omitted means use the selected frame.  Value is PROP.")  FRAME nil or omitted means use the selected frame.  Value is PROP.  */)
12501    (prop, frame)    (prop, frame)
12502       Lisp_Object prop, frame;       Lisp_Object prop, frame;
12503  {  {
# Line 12518  FRAME nil or omitted means use the selec Line 12522  FRAME nil or omitted means use the selec
12522    
12523  DEFUN ("x-window-property", Fx_window_property, Sx_window_property,  DEFUN ("x-window-property", Fx_window_property, Sx_window_property,
12524         1, 2, 0,         1, 2, 0,
12525    "Value is the value of window property PROP on FRAME.\n\         doc: /* Value is the value of window property PROP on FRAME.
12526  If FRAME is nil or omitted, use the selected frame.  Value is nil\n\  If FRAME is nil or omitted, use the selected frame.  Value is nil
12527  if FRAME hasn't a property with name PROP or if PROP has no string\n\  if FRAME hasn't a property with name PROP or if PROP has no string
12528  value.")  value.  */)
12529    (prop, frame)    (prop, frame)
12530       Lisp_Object prop, frame;       Lisp_Object prop, frame;
12531  {  {
# Line 13144  compute_tip_xy (f, parms, dx, dy, width, Line 13148  compute_tip_xy (f, parms, dx, dy, width,
13148    
13149  #ifdef TODO /* Tooltip support not complete.  */  #ifdef TODO /* Tooltip support not complete.  */
13150  DEFUN ("x-show-tip", Fx_show_tip, Sx_show_tip, 1, 6, 0,  DEFUN ("x-show-tip", Fx_show_tip, Sx_show_tip, 1, 6, 0,
13151    "Show STRING in a \"tooltip\" window on frame FRAME.\n\         doc: /* Show STRING in a \"tooltip\" window on frame FRAME.
13152  A tooltip window is a small window displaying a string.\n\  A tooltip window is a small window displaying a string.
13153  \n\  
13154  FRAME nil or omitted means use the selected frame.\n\  FRAME nil or omitted means use the selected frame.
13155  \n\  
13156  PARMS is an optional list of frame parameters which can be\n\  PARMS is an optional list of frame parameters which can be
13157  used to change the tooltip's appearance.\n\  used to change the tooltip's appearance.
13158  \n\  
13159  Automatically hide the tooltip after TIMEOUT seconds.\n\  Automatically hide the tooltip after TIMEOUT seconds.
13160  TIMEOUT nil means use the default timeout of 5 seconds.\n\  TIMEOUT nil means use the default timeout of 5 seconds.
13161  \n\  
13162  If the list of frame parameters PARAMS contains a `left' parameters,\n\  If the list of frame parameters PARAMS contains a `left' parameters,
13163  the tooltip is displayed at that x-position.  Otherwise it is\n\  the tooltip is displayed at that x-position.  Otherwise it is
13164  displayed at the mouse position, with offset DX added (default is 5 if\n\  displayed at the mouse position, with offset DX added (default is 5 if
13165  DX isn't specified).  Likewise for the y-position; if a `top' frame\n\  DX isn't specified).  Likewise for the y-position; if a `top' frame
13166  parameter is specified, it determines the y-position of the tooltip\n\  parameter is specified, it determines the y-position of the tooltip
13167  window, otherwise it is displayed at the mouse position, with offset\n\  window, otherwise it is displayed at the mouse position, with offset
13168  DY added (default is -10).\n\  DY added (default is -10).
13169  \n\  
13170  A tooltip's maximum size is specified by `x-max-tooltip-size'.\n\  A tooltip's maximum size is specified by `x-max-tooltip-size'.
13171  Text larger than the specified size is clipped.")  Text larger than the specified size is clipped.  */)
13172    (string, frame, parms, timeout, dx, dy)    (string, frame, parms, timeout, dx, dy)
13173       Lisp_Object string, frame, parms, timeout, dx, dy;       Lisp_Object string, frame, parms, timeout, dx, dy;
13174  {  {
# Line 13352  Text larger than the specified size is c Line 13356  Text larger than the specified size is c
13356    
13357    
13358  DEFUN ("x-hide-tip", Fx_hide_tip, Sx_hide_tip, 0, 0, 0,  DEFUN ("x-hide-tip", Fx_hide_tip, Sx_hide_tip, 0, 0, 0,
13359    "Hide the current tooltip window, if there is any.\n\         doc: /* Hide the current tooltip window, if there is any.
13360  Value is t if tooltip was open, nil otherwise.")  Value is t if tooltip was open, nil otherwise.  */)
13361    ()    ()
13362  {  {
13363    int count;    int count;
# Line 13396  Value is t if tooltip was open, nil othe Line 13400  Value is t if tooltip was open, nil othe
13400  extern Lisp_Object Qfile_name_history;  extern Lisp_Object Qfile_name_history;
13401    
13402  DEFUN ("x-file-dialog", Fx_file_dialog, Sx_file_dialog, 2, 4, 0,  DEFUN ("x-file-dialog", Fx_file_dialog, Sx_file_dialog, 2, 4, 0,
13403    "Read file name, prompting with PROMPT in directory DIR.\n\         doc: /* Read file name, prompting with PROMPT in directory DIR.
13404  Use a file selection dialog.\n\  Use a file selection dialog.
13405  Select DEFAULT-FILENAME in the dialog's file selection box, if\n\  Select DEFAULT-FILENAME in the dialog's file selection box, if
13406  specified.  Ensure that file exists if MUSTMATCH is non-nil.")  specified.  Ensure that file exists if MUSTMATCH is non-nil.  */)
13407    (prompt, dir, default_filename, mustmatch)    (prompt, dir, default_filename, mustmatch)
13408       Lisp_Object prompt, dir, default_filename, mustmatch;       Lisp_Object prompt, dir, default_filename, mustmatch;
13409  {  {
# Line 13502  specified.  Ensure that file exists if M Line 13506  specified.  Ensure that file exists if M
13506    
13507    
13508  /***********************************************************************  /***********************************************************************
                                 Tests  
  ***********************************************************************/  
   
 #if GLYPH_DEBUG  
   
 DEFUN ("imagep", Fimagep, Simagep, 1, 1, 0,  
   "Value is non-nil if SPEC is a valid image specification.")  
   (spec)  
      Lisp_Object spec;  
 {  
   return valid_image_p (spec) ? Qt : Qnil;  
 }  
   
   
 DEFUN ("lookup-image", Flookup_image, Slookup_image, 1, 1, 0, "")  
   (spec)  
      Lisp_Object spec;  
 {  
   int id = -1;  
     
   if (valid_image_p (spec))  
     id = lookup_image (SELECTED_FRAME (), spec);  
   
   debug_print (spec);  
   return make_number (id);  
 }  
   
 #endif /* GLYPH_DEBUG != 0 */  
   
   
   
 /***********************************************************************  
13509                           w32 specialized functions                           w32 specialized functions
13510   ***********************************************************************/   ***********************************************************************/
13511    
13512  DEFUN ("w32-select-font", Fw32_select_font, Sw32_select_font, 0, 1, 0,  DEFUN ("w32-select-font", Fw32_select_font, Sw32_select_font, 0, 1, 0,
13513     "This will display the W32 font dialog and return an X font string corresponding to the selection.")         doc: /* Select a font using the W32 font dialog.
13514    Returns an X font string corresponding to the selection.  */)
13515    (frame)    (frame)
13516       Lisp_Object frame;       Lisp_Object frame;
13517  {  {
# Line 13582  DEFUN ("w32-select-font", Fw32_select_fo Line 13555  DEFUN ("w32-select-font", Fw32_select_fo
13555    return build_string (buf);    return build_string (buf);
13556  }  }
13557    
13558  DEFUN ("w32-send-sys-command", Fw32_send_sys_command, Sw32_send_sys_command, 1, 2, 0,  DEFUN ("w32-send-sys-command", Fw32_send_sys_command,
13559     "Send frame a Windows WM_SYSCOMMAND message of type COMMAND.\n\         Sw32_send_sys_command, 1, 2, 0,
13560  Some useful values for command are 0xf030 to maximise frame (0xf020\n\         doc: /* Send frame a Windows WM_SYSCOMMAND message of type COMMAND.
13561  to minimize), 0xf120 to restore frame to original size, and 0xf100\n\  Some useful values for command are 0xf030 to maximise frame (0xf020
13562  to activate the menubar for keyboard access.  0xf140 activates the\n\  to minimize), 0xf120 to restore frame to original size, and 0xf100
13563  screen saver if defined.\n\  to activate the menubar for keyboard access.  0xf140 activates the
13564  \n\  screen saver if defined.
13565  If optional parameter FRAME is not specified, use selected frame.")  
13566    If optional parameter FRAME is not specified, use selected frame.  */)
13567    (command, frame)    (command, frame)
13568       Lisp_Object command, frame;       Lisp_Object command, frame;
13569  {  {
# Line 13603  If optional parameter FRAME is not speci Line 13577  If optional parameter FRAME is not speci
13577  }  }
13578    
13579  DEFUN ("w32-shell-execute", Fw32_shell_execute, Sw32_shell_execute, 2, 4, 0,  DEFUN ("w32-shell-execute", Fw32_shell_execute, Sw32_shell_execute, 2, 4, 0,
13580    "Get Windows to perform OPERATION on DOCUMENT.\n\         doc: /* Get Windows to perform OPERATION on DOCUMENT.
13581  This is a wrapper around the ShellExecute system function, which\n\  This is a wrapper around the ShellExecute system function, which
13582  invokes the application registered to handle OPERATION for DOCUMENT.\n\  invokes the application registered to handle OPERATION for DOCUMENT.
13583  OPERATION is typically \"open\", \"print\" or \"explore\" (but can be\n\  OPERATION is typically \"open\", \"print\" or \"explore\" (but can be
13584  nil for the default action), and DOCUMENT is typically the name of a\n\  nil for the default action), and DOCUMENT is typically the name of a
13585  document file or URL, but can also be a program executable to run or\n\  document file or URL, but can also be a program executable to run or
13586  a directory to open in the Windows Explorer.\n\  a directory to open in the Windows Explorer.
13587  \n\  
13588  If DOCUMENT is a program executable, PARAMETERS can be a string\n\  If DOCUMENT is a program executable, PARAMETERS can be a string
13589  containing command line parameters, but otherwise should be nil.\n\  containing command line parameters, but otherwise should be nil.
13590  \n\  
13591  SHOW-FLAG can be used to control whether the invoked application is hidden\n\  SHOW-FLAG can be used to control whether the invoked application is hidden
13592  or minimized.  If SHOW-FLAG is nil, the application is displayed normally,\n\  or minimized.  If SHOW-FLAG is nil, the application is displayed normally,
13593  otherwise it is an integer representing a ShowWindow flag:\n\  otherwise it is an integer representing a ShowWindow flag:
13594  \n\  
13595    0 - start hidden\n\    0 - start hidden
13596    1 - start normally\n\    1 - start normally
13597    3 - start maximized\n\    3 - start maximized
13598    6 - start minimized")    6 - start minimized  */)
13599    (operation, document, parameters, show_flag)    (operation, document, parameters, show_flag)
13600       Lisp_Object operation, document, parameters, show_flag;       Lisp_Object operation, document, parameters, show_flag;
13601  {  {
# Line 13733  w32_parse_hot_key (key) Line 13707  w32_parse_hot_key (key)
13707    return HOTKEY (vk_code, w32_modifiers);    return HOTKEY (vk_code, w32_modifiers);
13708  }  }
13709    
13710  DEFUN ("w32-register-hot-key", Fw32_register_hot_key, Sw32_register_hot_key, 1, 1, 0,  DEFUN ("w32-register-hot-key", Fw32_register_hot_key,
13711     "Register KEY as a hot-key combination.\n\         Sw32_register_hot_key, 1, 1, 0,
13712  Certain key combinations like Alt-Tab are reserved for system use on\n\         doc: /* Register KEY as a hot-key combination.
13713  Windows, and therefore are normally intercepted by the system.  However,\n\  Certain key combinations like Alt-Tab are reserved for system use on
13714  most of these key combinations can be received by registering them as\n\  Windows, and therefore are normally intercepted by the system.  However,
13715  hot-keys, overriding their special meaning.\n\  most of these key combinations can be received by registering them as
13716  \n\  hot-keys, overriding their special meaning.
13717  KEY must be a one element key definition in vector form that would be\n\  
13718  acceptable to `define-key' (e.g. [A-tab] for Alt-Tab).  The meta\n\  KEY must be a one element key definition in vector form that would be
13719  modifier is interpreted as Alt if `w32-alt-is-meta' is t, and hyper\n\  acceptable to `define-key' (e.g. [A-tab] for Alt-Tab).  The meta
13720  is always interpreted as the Windows modifier keys.\n\  modifier is interpreted as Alt if `w32-alt-is-meta' is t, and hyper
13721  \n\  is always interpreted as the Windows modifier keys.
13722  The return value is the hotkey-id if registered, otherwise nil.")  
13723    The return value is the hotkey-id if registered, otherwise nil.  */)
13724    (key)    (key)
13725       Lisp_Object key;       Lisp_Object key;
13726  {  {
# Line 13771  The return value is the hotkey-id if reg Line 13746  The return value is the hotkey-id if reg
13746    return key;    return key;
13747  }  }
13748    
13749  DEFUN ("w32-unregister-hot-key", Fw32_unregister_hot_key, Sw32_unregister_hot_key, 1, 1, 0,  DEFUN ("w32-unregister-hot-key", Fw32_unregister_hot_key,
13750     "Unregister HOTKEY as a hot-key combination.")         Sw32_unregister_hot_key, 1, 1, 0,
13751           doc: /* Unregister HOTKEY as a hot-key combination.  */)
13752    (key)    (key)
13753       Lisp_Object key;       Lisp_Object key;
13754  {  {
# Line 13798  DEFUN ("w32-unregister-hot-key", Fw32_un Line 13774  DEFUN ("w32-unregister-hot-key", Fw32_un
13774    return Qnil;    return Qnil;
13775  }  }
13776    
13777  DEFUN ("w32-registered-hot-keys", Fw32_registered_hot_keys, Sw32_registered_hot_keys, 0, 0, 0,  DEFUN ("w32-registered-hot-keys", Fw32_registered_hot_keys,
13778     "Return list of registered hot-key IDs.")         Sw32_registered_hot_keys, 0, 0, 0,
13779           doc: /* Return list of registered hot-key IDs.  */)
13780    ()    ()
13781  {  {
13782    return Fcopy_sequence (w32_grabbed_keys);    return Fcopy_sequence (w32_grabbed_keys);
13783  }  }
13784    
13785  DEFUN ("w32-reconstruct-hot-key", Fw32_reconstruct_hot_key, Sw32_reconstruct_hot_key, 1, 1, 0,  DEFUN ("w32-reconstruct-hot-key", Fw32_reconstruct_hot_key,
13786     "Convert hot-key ID to a lisp key combination.")         Sw32_reconstruct_hot_key, 1, 1, 0,
13787           doc: /* Convert hot-key ID to a lisp key combination.  */)
13788    (hotkeyid)    (hotkeyid)
13789       Lisp_Object hotkeyid;       Lisp_Object hotkeyid;
13790  {  {
# Line 13836  DEFUN ("w32-reconstruct-hot-key", Fw32_r Line 13814  DEFUN ("w32-reconstruct-hot-key", Fw32_r
13814    return key;    return key;
13815  }  }
13816    
13817  DEFUN ("w32-toggle-lock-key", Fw32_toggle_lock_key, Sw32_toggle_lock_key, 1, 2, 0,  DEFUN ("w32-toggle-lock-key", Fw32_toggle_lock_key,
13818     "Toggle the state of the lock key KEY.\n\         Sw32_toggle_lock_key, 1, 2, 0,
13819  KEY can be `capslock', `kp-numlock', or `scroll'.\n\         doc: /* Toggle the state of the lock key KEY.
13820  If the optional parameter NEW-STATE is a number, then the state of KEY\n\  KEY can be `capslock', `kp-numlock', or `scroll'.
13821  is set to off if the low bit of NEW-STATE is zero, otherwise on.")  If the optional parameter NEW-STATE is a number, then the state of KEY
13822    is set to off if the low bit of NEW-STATE is zero, otherwise on.  */)
13823    (key, new_state)    (key, new_state)
13824       Lisp_Object key, new_state;       Lisp_Object key, new_state;
13825  {  {
# Line 13869  is set to off if the low bit of NEW-STAT Line 13848  is set to off if the low bit of NEW-STAT
13848  }  }
13849    
13850  DEFUN ("file-system-info", Ffile_system_info, Sfile_system_info, 1, 1, 0,  DEFUN ("file-system-info", Ffile_system_info, Sfile_system_info, 1, 1, 0,
13851    "Return storage information about the file system FILENAME is on.\n\         doc: /* Return storage information about the file system FILENAME is on.
13852  Value is a list of floats (TOTAL FREE AVAIL), where TOTAL is the total\n\  Value is a list of floats (TOTAL FREE AVAIL), where TOTAL is the total
13853  storage of the file system, FREE is the free storage, and AVAIL is the\n\  storage of the file system, FREE is the free storage, and AVAIL is the
13854  storage available to a non-superuser.  All 3 numbers are in bytes.\n\  storage available to a non-superuser.  All 3 numbers are in bytes.
13855  If the underlying system call fails, value is nil.")  If the underlying system call fails, value is nil.  */)
13856    (filename)    (filename)
13857    Lisp_Object filename;    Lisp_Object filename;
13858  {  {
# Line 14086  syms_of_w32fns () Line 14065  syms_of_w32fns ()
14065    w32_grabbed_keys = Qnil;    w32_grabbed_keys = Qnil;
14066    
14067    DEFVAR_LISP ("w32-color-map", &Vw32_color_map,    DEFVAR_LISP ("w32-color-map", &Vw32_color_map,
14068                 "An array of color name mappings for windows.");                 doc: /* An array of color name mappings for windows.  */);
14069    Vw32_color_map = Qnil;    Vw32_color_map = Qnil;
14070    
14071    DEFVAR_LISP ("w32-pass-alt-to-system", &Vw32_pass_alt_to_system,    DEFVAR_LISP ("w32-pass-alt-to-system", &Vw32_pass_alt_to_system,
14072                 "Non-nil if alt key presses are passed on to Windows.\n\                 doc: /* Non-nil if alt key presses are passed on to Windows.
14073  When non-nil, for example, alt pressed and released and then space will\n\  When non-nil, for example, alt pressed and released and then space will
14074  open the System menu.  When nil, Emacs silently swallows alt key events.");  open the System menu.  When nil, Emacs silently swallows alt key events.  */);
14075    Vw32_pass_alt_to_system = Qnil;    Vw32_pass_alt_to_system = Qnil;
14076    
14077    DEFVAR_LISP ("w32-alt-is-meta", &Vw32_alt_is_meta,    DEFVAR_LISP ("w32-alt-is-meta", &Vw32_alt_is_meta,
14078                 "Non-nil if the alt key is to be considered the same as the meta key.\n\                 doc: /* Non-nil if the alt key is to be considered the same as the meta key.
14079  When nil, Emacs will translate the alt key to the Alt modifier, and not Meta.");  When nil, Emacs will translate the alt key to the Alt modifier, and not Meta.  */);
14080    Vw32_alt_is_meta = Qt;    Vw32_alt_is_meta = Qt;
14081    
14082    DEFVAR_INT ("w32-quit-key", &Vw32_quit_key,    DEFVAR_INT ("w32-quit-key", &Vw32_quit_key,
14083                 "If non-zero, the virtual key code for an alternative quit key.");                doc: /* If non-zero, the virtual key code for an alternative quit key.  */);
14084    XSETINT (Vw32_quit_key, 0);    XSETINT (Vw32_quit_key, 0);
14085    
14086    DEFVAR_LISP ("w32-pass-lwindow-to-system",    DEFVAR_LISP ("w32-pass-lwindow-to-system",
14087                 &Vw32_pass_lwindow_to_system,                 &Vw32_pass_lwindow_to_system,
14088                 "Non-nil if the left \"Windows\" key is passed on to Windows.\n\                 doc: /* Non-nil if the left \"Windows\" key is passed on to Windows.
14089  When non-nil, the Start menu is opened by tapping the key.");  When non-nil, the Start menu is opened by tapping the key.  */);
14090    Vw32_pass_lwindow_to_system = Qt;    Vw32_pass_lwindow_to_system = Qt;
14091    
14092    DEFVAR_LISP ("w32-pass-rwindow-to-system",    DEFVAR_LISP ("w32-pass-rwindow-to-system",
14093                 &Vw32_pass_rwindow_to_system,                 &Vw32_pass_rwindow_to_system,
14094                 "Non-nil if the right \"Windows\" key is passed on to Windows.\n\                 doc: /* Non-nil if the right \"Windows\" key is passed on to Windows.
14095  When non-nil, the Start menu is opened by tapping the key.");  When non-nil, the Start menu is opened by tapping the key.  */);
14096    Vw32_pass_rwindow_to_system = Qt;    Vw32_pass_rwindow_to_system = Qt;
14097    
14098    DEFVAR_INT ("w32-phantom-key-code",    DEFVAR_INT ("w32-phantom-key-code",
14099                 &Vw32_phantom_key_code,                 &Vw32_phantom_key_code,
14100                 "Virtual key code used to generate \"phantom\" key presses.\n\                doc: /* Virtual key code used to generate \"phantom\" key presses.
14101  Value is a number between 0 and 255.\n\  Value is a number between 0 and 255.
14102  \n\  
14103  Phantom key presses are generated in order to stop the system from\n\  Phantom key presses are generated in order to stop the system from
14104  acting on \"Windows\" key events when `w32-pass-lwindow-to-system' or\n\  acting on \"Windows\" key events when `w32-pass-lwindow-to-system' or
14105  `w32-pass-rwindow-to-system' is nil.");  `w32-pass-rwindow-to-system' is nil.  */);
14106    /* Although 255 is technically not a valid key code, it works and    /* Although 255 is technically not a valid key code, it works and
14107       means that this hack won't interfere with any real key code.  */       means that this hack won't interfere with any real key code.  */
14108    Vw32_phantom_key_code = 255;    Vw32_phantom_key_code = 255;
14109    
14110    DEFVAR_LISP ("w32-enable-num-lock",    DEFVAR_LISP ("w32-enable-num-lock",
14111                 &Vw32_enable_num_lock,                 &Vw32_enable_num_lock,
14112                 "Non-nil if Num Lock should act normally.\n\                 doc: /* Non-nil if Num Lock should act normally.
14113  Set to nil to see Num Lock as the key `kp-numlock'.");  Set to nil to see Num Lock as the key `kp-numlock'.  */);
14114    Vw32_enable_num_lock = Qt;    Vw32_enable_num_lock = Qt;
14115    
14116    DEFVAR_LISP ("w32-enable-caps-lock",    DEFVAR_LISP ("w32-enable-caps-lock",
14117                 &Vw32_enable_caps_lock,                 &Vw32_enable_caps_lock,
14118                 "Non-nil if Caps Lock should act normally.\n\                 doc: /* Non-nil if Caps Lock should act normally.
14119  Set to nil to see Caps Lock as the key `capslock'.");  Set to nil to see Caps Lock as the key `capslock'.  */);
14120    Vw32_enable_caps_lock = Qt;    Vw32_enable_caps_lock = Qt;
14121    
14122    DEFVAR_LISP ("w32-scroll-lock-modifier",    DEFVAR_LISP ("w32-scroll-lock-modifier",
14123                 &Vw32_scroll_lock_modifier,                 &Vw32_scroll_lock_modifier,
14124                 "Modifier to use for the Scroll Lock on state.\n\                 doc: /* Modifier to use for the Scroll Lock on state.
14125  The value can be hyper, super, meta, alt, control or shift for the\n\  The value can be hyper, super, meta, alt, control or shift for the
14126  respective modifier, or nil to see Scroll Lock as the key `scroll'.\n\  respective modifier, or nil to see Scroll Lock as the key `scroll'.
14127  Any other value will cause the key to be ignored.");  Any other value will cause the key to be ignored.  */);
14128    Vw32_scroll_lock_modifier = Qt;    Vw32_scroll_lock_modifier = Qt;
14129    
14130    DEFVAR_LISP ("w32-lwindow-modifier",    DEFVAR_LISP ("w32-lwindow-modifier",
14131                 &Vw32_lwindow_modifier,                 &Vw32_lwindow_modifier,
14132                 "Modifier to use for the left \"Windows\" key.\n\                 doc: /* Modifier to use for the left \"Windows\" key.
14133  The value can be hyper, super, meta, alt, control or shift for the\n\  The value can be hyper, super, meta, alt, control or shift for the
14134  respective modifier, or nil to appear as the key `lwindow'.\n\  respective modifier, or nil to appear as the key `lwindow'.
14135  Any other value will cause the key to be ignored.");  Any other value will cause the key to be ignored.  */);
14136    Vw32_lwindow_modifier = Qnil;    Vw32_lwindow_modifier = Qnil;
14137    
14138    DEFVAR_LISP ("w32-rwindow-modifier",    DEFVAR_LISP ("w32-rwindow-modifier",
14139                 &Vw32_rwindow_modifier,                 &Vw32_rwindow_modifier,
14140                 "Modifier to use for the right \"Windows\" key.\n\                 doc: /* Modifier to use for the right \"Windows\" key.
14141  The value can be hyper, super, meta, alt, control or shift for the\n\  The value can be hyper, super, meta, alt, control or shift for the
14142  respective modifier, or nil to appear as the key `rwindow'.\n\  respective modifier, or nil to appear as the key `rwindow'.
14143  Any other value will cause the key to be ignored.");  Any other value will cause the key to be ignored.  */);
14144    Vw32_rwindow_modifier = Qnil;    Vw32_rwindow_modifier = Qnil;
14145    
14146    DEFVAR_LISP ("w32-apps-modifier",    DEFVAR_LISP ("w32-apps-modifier",
14147                 &Vw32_apps_modifier,                 &Vw32_apps_modifier,
14148                 "Modifier to use for the \"Apps\" key.\n\                 doc: /* Modifier to use for the \"Apps\" key.
14149  The value can be hyper, super, meta, alt, control or shift for the\n\  The value can be hyper, super, meta, alt, control or shift for the
14150  respective modifier, or nil to appear as the key `apps'.\n\  respective modifier, or nil to appear as the key `apps'.
14151  Any other value will cause the key to be ignored.");  Any other value will cause the key to be ignored.  */);
14152    Vw32_apps_modifier = Qnil;    Vw32_apps_modifier = Qnil;
14153    
14154    DEFVAR_LISP ("w32-enable-synthesized-fonts", &Vw32_enable_synthesized_fonts,    DEFVAR_LISP ("w32-enable-synthesized-fonts", &Vw32_enable_synthesized_fonts,
14155      "Non-nil enables selection of artificially italicized and bold fonts.");                 doc: /* Non-nil enables selection of artificially italicized and bold fonts.  */);
14156    Vw32_enable_synthesized_fonts = Qnil;    Vw32_enable_synthesized_fonts = Qnil;
14157    
14158    DEFVAR_LISP ("w32-enable-palette", &Vw32_enable_palette,    DEFVAR_LISP ("w32-enable-palette", &Vw32_enable_palette,
14159      "Non-nil enables Windows palette management to map colors exactly.");                 doc: /* Non-nil enables Windows palette management to map colors exactly.  */);
14160    Vw32_enable_palette = Qt;    Vw32_enable_palette = Qt;
14161    
14162    DEFVAR_INT ("w32-mouse-button-tolerance",    DEFVAR_INT ("w32-mouse-button-tolerance",
14163                &Vw32_mouse_button_tolerance,                &Vw32_mouse_button_tolerance,
14164      "Analogue of double click interval for faking middle mouse events.\n\                doc: /* Analogue of double click interval for faking middle mouse events.
14165  The value is the minimum time in milliseconds that must elapse between\n\  The value is the minimum time in milliseconds that must elapse between
14166  left/right button down events before they are considered distinct events.\n\  left/right button down events before they are considered distinct events.
14167  If both mouse buttons are depressed within this interval, a middle mouse\n\  If both mouse buttons are depressed within this interval, a middle mouse
14168  button down event is generated instead.");  button down event is generated instead.  */);
14169    XSETINT (Vw32_mouse_button_tolerance, GetDoubleClickTime () / 2);    XSETINT (Vw32_mouse_button_tolerance, GetDoubleClickTime () / 2);
14170    
14171    DEFVAR_INT ("w32-mouse-move-interval",    DEFVAR_INT ("w32-mouse-move-interval",
14172                &Vw32_mouse_move_interval,                &Vw32_mouse_move_interval,
14173                "Minimum interval between mouse move events.\n\                doc: /* Minimum interval between mouse move events.
14174  The value is the minimum time in milliseconds that must elapse between\n\  The value is the minimum time in milliseconds that must elapse between
14175  successive mouse move (or scroll bar drag) events before they are\n\  successive mouse move (or scroll bar drag) events before they are
14176  reported as lisp events.");  reported as lisp events.  */);
14177    XSETINT (Vw32_mouse_move_interval, 0);    XSETINT (Vw32_mouse_move_interval, 0);
14178    
14179    init_x_parm_symbols ();    init_x_parm_symbols ();
14180    
14181    DEFVAR_LISP ("x-bitmap-file-path", &Vx_bitmap_file_path,    DEFVAR_LISP ("x-bitmap-file-path", &Vx_bitmap_file_path,
14182      "List of directories to search for bitmap files for w32.");                 doc: /* List of directories to search for bitmap files for w32.  */);
14183    Vx_bitmap_file_path = decode_env_path ((char *) 0, "PATH");    Vx_bitmap_file_path = decode_env_path ((char *) 0, "PATH");
14184    
14185    DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape,    DEFVAR_LISP ("x-pointer-shape", &Vx_pointer_shape,
14186      "The shape of the pointer when over text.\n\                 doc: /* The shape of the pointer when over text.
14187  Changing the value does not affect existing frames\n\  Changing the value does not affect existing frames
14188  unless you set the mouse color.");  unless you set the mouse color.  */);
14189    Vx_pointer_shape = Qnil;    Vx_pointer_shape = Qnil;
14190    
14191    DEFVAR_LISP ("x-resource-name", &Vx_resource_name,    DEFVAR_LISP ("x-resource-name", &Vx_resource_name,
14192      "The name Emacs uses to look up resources; for internal use only.\n\                 doc: /* The name Emacs uses to look up resources; for internal use only.
14193  `x-get-resource' uses this as the first component of the instance name\n\  `x-get-resource' uses this as the first component of the instance name
14194  when requesting resource values.\n\  when requesting resource values.
14195  Emacs initially sets `x-resource-name' to the name under which Emacs\n\  Emacs initially sets `x-resource-name' to the name under which Emacs
14196  was invoked, or to the value specified with the `-name' or `-rn'\n\  was invoked, or to the value specified with the `-name' or `-rn'
14197  switches, if present.");  switches, if present.  */);
14198    Vx_resource_name = Qnil;    Vx_resource_name = Qnil;
14199    
14200    Vx_nontext_pointer_shape = Qnil;    Vx_nontext_pointer_shape = Qnil;
# Line 14223  switches, if present."); Line 14202  switches, if present.");
14202    Vx_mode_pointer_shape = Qnil;    Vx_mode_pointer_shape = Qnil;
14203    
14204    DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape,    DEFVAR_LISP ("x-hourglass-pointer-shape", &Vx_hourglass_pointer_shape,
14205      "The shape of the pointer when Emacs is busy.\n\                 doc: /* The shape of the pointer when Emacs is busy.
14206  This variable takes effect when you create a new frame\n\  This variable takes effect when you create a new frame
14207  or when you set the mouse color.");  or when you set the mouse color.  */);
14208    Vx_hourglass_pointer_shape = Qnil;    Vx_hourglass_pointer_shape = Qnil;
14209    
14210    DEFVAR_BOOL ("display-hourglass", &display_hourglass_p,    DEFVAR_BOOL ("display-hourglass", &display_hourglass_p,
14211      "Non-zero means Emacs displays an hourglass pointer on window systems.");                 doc: /* Non-zero means Emacs displays an hourglass pointer on window systems.  */);
14212    display_hourglass_p = 1;    display_hourglass_p = 1;
14213        
14214    DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay,    DEFVAR_LISP ("hourglass-delay", &Vhourglass_delay,
14215       "*Seconds to wait before displaying an hourglass pointer.\n\                 doc: /* *Seconds to wait before displaying an hourglass pointer.
14216  Value must be an integer or float.");  Value must be an integer or float.  */);
14217    Vhourglass_delay = make_number (DEFAULT_HOURGLASS_DELAY);    Vhourglass_delay = make_number (DEFAULT_HOURGLASS_DELAY);
14218    
14219    DEFVAR_LISP ("x-sensitive-text-pointer-shape",    DEFVAR_LISP ("x-sensitive-text-pointer-shape",
14220                &Vx_sensitive_text_pointer_shape,                &Vx_sensitive_text_pointer_shape,
14221                "The shape of the pointer when over mouse-sensitive text.\n\                 doc: /* The shape of the pointer when over mouse-sensitive text.
14222  This variable takes effect when you create a new frame\n\  This variable takes effect when you create a new frame
14223  or when you set the mouse color.");  or when you set the mouse color.  */);
14224    Vx_sensitive_text_pointer_shape = Qnil;    Vx_sensitive_text_pointer_shape = Qnil;
14225    
14226    DEFVAR_LISP ("x-window-horizontal-drag-cursor",    DEFVAR_LISP ("x-window-horizontal-drag-cursor",
14227                &Vx_window_horizontal_drag_shape,                &Vx_window_horizontal_drag_shape,
14228    "Pointer shape to use for indicating a window can be dragged horizontally.\n\                 doc: /* Pointer shape to use for indicating a window can be dragged horizontally.
14229  This variable takes effect when you create a new frame\n\  This variable takes effect when you create a new frame
14230  or when you set the mouse color.");  or when you set the mouse color.  */);
14231    Vx_window_horizontal_drag_shape = Qnil;    Vx_window_horizontal_drag_shape = Qnil;
14232    
14233    DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel,    DEFVAR_LISP ("x-cursor-fore-pixel", &Vx_cursor_fore_pixel,
14234                 "A string indicating the foreground color of the cursor box.");                 doc: /* A string indicating the foreground color of the cursor box.  */);
14235    Vx_cursor_fore_pixel = Qnil;    Vx_cursor_fore_pixel = Qnil;
14236    
14237    DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size,    DEFVAR_LISP ("x-max-tooltip-size", &Vx_max_tooltip_size,
14238     "Maximum size for tooltips.  Value is a pair (COLUMNS . ROWS).\n\                 doc: /* Maximum size for tooltips.  Value is a pair (COLUMNS . ROWS).
14239  Text larger than this is clipped.");  Text larger than this is clipped.  */);
14240    Vx_max_tooltip_size = Fcons (make_number (80), make_number (40));    Vx_max_tooltip_size = Fcons (make_number (80), make_number (40));
14241        
14242    DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager,    DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager,
14243                 "Non-nil if no window manager is in use.\n\                 doc: /* Non-nil if no window manager is in use.
14244  Emacs doesn't try to figure this out; this is always nil\n\  Emacs doesn't try to figure this out; this is always nil
14245  unless you set it to something else.");  unless you set it to something else.  */);
14246    /* We don't have any way to find this out, so set it to nil    /* We don't have any way to find this out, so set it to nil
14247       and maybe the user would like to set it to t.  */       and maybe the user would like to set it to t.  */
14248    Vx_no_window_manager = Qnil;    Vx_no_window_manager = Qnil;
14249    
14250    DEFVAR_LISP ("x-pixel-size-width-font-regexp",    DEFVAR_LISP ("x-pixel-size-width-font-regexp",
14251                 &Vx_pixel_size_width_font_regexp,                 &Vx_pixel_size_width_font_regexp,
14252       "Regexp matching a font name whose width is the same as `PIXEL_SIZE'.\n\                 doc: /* Regexp matching a font name whose width is the same as `PIXEL_SIZE'.
14253  \n\  
14254  Since Emacs gets width of a font matching with this regexp from\n\  Since Emacs gets width of a font matching with this regexp from
14255  PIXEL_SIZE field of the name, font finding mechanism gets faster for\n\  PIXEL_SIZE field of the name, font finding mechanism gets faster for
14256  such a font.  This is especially effective for such large fonts as\n\  such a font.  This is especially effective for such large fonts as
14257  Chinese, Japanese, and Korean.");  Chinese, Japanese, and Korean.  */);
14258    Vx_pixel_size_width_font_regexp = Qnil;    Vx_pixel_size_width_font_regexp = Qnil;
14259    
14260    DEFVAR_LISP ("image-cache-eviction-delay", &Vimage_cache_eviction_delay,    DEFVAR_LISP ("image-cache-eviction-delay", &Vimage_cache_eviction_delay,
14261       "Time after which cached images are removed from the cache.\n\                 doc: /* Time after which cached images are removed from the cache.
14262  When an image has not been displayed this many seconds, remove it\n\  When an image has not been displayed this many seconds, remove it
14263  from the image cache.  Value must be an integer or nil with nil\n\  from the image cache.  Value must be an integer or nil with nil
14264  meaning don't clear the cache.");  meaning don't clear the cache.  */);
14265    Vimage_cache_eviction_delay = make_number (30 * 60);    Vimage_cache_eviction_delay = make_number (30 * 60);
14266    
14267    DEFVAR_LISP ("w32-bdf-filename-alist",    DEFVAR_LISP ("w32-bdf-filename-alist",
14268                 &Vw32_bdf_filename_alist,                 &Vw32_bdf_filename_alist,
14269                 "List of bdf fonts and their corresponding filenames.");                 doc: /* List of bdf fonts and their corresponding filenames.  */);
14270    Vw32_bdf_filename_alist = Qnil;    Vw32_bdf_filename_alist = Qnil;
14271    
14272    DEFVAR_BOOL ("w32-strict-fontnames",    DEFVAR_BOOL ("w32-strict-fontnames",
14273                 &w32_strict_fontnames,                 &w32_strict_fontnames,
14274    "Non-nil means only use fonts that are exact matches for those requested.\n\                 doc: /* Non-nil means only use fonts that are exact matches for those requested.
14275  Default is nil, which allows old fontnames that are not XLFD compliant,\n\  Default is nil, which allows old fontnames that are not XLFD compliant,
14276  and allows third-party CJK display to work by specifying false charset\n\  and allows third-party CJK display to work by specifying false charset
14277  fields to trick Emacs into translating to Big5, SJIS etc.\n\  fields to trick Emacs into translating to Big5, SJIS etc.
14278  Setting this to t will prevent wrong fonts being selected when\n\  Setting this to t will prevent wrong fonts being selected when
14279  fontsets are automatically created.");  fontsets are automatically created.  */);
14280    w32_strict_fontnames = 0;    w32_strict_fontnames = 0;
14281    
14282    DEFVAR_BOOL ("w32-strict-painting",    DEFVAR_BOOL ("w32-strict-painting",
14283                 &w32_strict_painting,                 &w32_strict_painting,
14284    "Non-nil means use strict rules for repainting frames.\n\                 doc: /* Non-nil means use strict rules for repainting frames.
14285  Set this to nil to get the old behaviour for repainting; this should\n\  Set this to nil to get the old behaviour for repainting; this should
14286  only be necessary if the default setting causes problems.");  only be necessary if the default setting causes problems.  */);
14287    w32_strict_painting = 1;    w32_strict_painting = 1;
14288    
14289    DEFVAR_LISP ("w32-system-coding-system",    DEFVAR_LISP ("w32-system-coding-system",
14290                 &Vw32_system_coding_system,                 &Vw32_system_coding_system,
14291    "Coding system used by Windows system functions, such as for font names.");                 doc: /* Coding system used by Windows system functions, such as for font names.  */);
14292    Vw32_system_coding_system = Qnil;    Vw32_system_coding_system = Qnil;
14293    
14294    DEFVAR_LISP ("w32-charset-info-alist",    DEFVAR_LISP ("w32-charset-info-alist",
14295                 &Vw32_charset_info_alist,                 &Vw32_charset_info_alist,
14296                 "Alist linking Emacs character sets to Windows fonts\n\                 doc: /* Alist linking Emacs character sets to Windows fonts
14297  and codepages. Each entry should be of the form:\n\  and codepages. Each entry should be of the form:
14298  \n\  
14299     (CHARSET_NAME . (WINDOWS_CHARSET . CODEPAGE))\n\     (CHARSET_NAME . (WINDOWS_CHARSET . CODEPAGE))
14300  \n\  
14301  where CHARSET_NAME is a string used in font names to identify the charset,\n\  where CHARSET_NAME is a string used in font names to identify the charset,
14302  WINDOWS_CHARSET is a symbol that can be one of:\n\  WINDOWS_CHARSET is a symbol that can be one of:
14303  w32-charset-ansi, w32-charset-default, w32-charset-symbol,\n\  w32-charset-ansi, w32-charset-default, w32-charset-symbol,
14304  w32-charset-shiftjis, w32-charset-hangeul, w32-charset-gb2312,\n\  w32-charset-shiftjis, w32-charset-hangeul, w32-charset-gb2312,
14305  w32-charset-chinesebig5, "  w32-charset-chinesebig5,
14306  #ifdef JOHAB_CHARSET  #ifdef JOHAB_CHARSET
14307  "w32-charset-johab, w32-charset-hebrew,\n\  w32-charset-johab, w32-charset-hebrew,
14308  w32-charset-arabic, w32-charset-greek, w32-charset-turkish,\n\  w32-charset-arabic, w32-charset-greek, w32-charset-turkish,
14309  w32-charset-vietnamese, w32-charset-thai, w32-charset-easteurope,\n\  w32-charset-vietnamese, w32-charset-thai, w32-charset-easteurope,
14310  w32-charset-russian, w32-charset-mac, w32-charset-baltic,\n"  w32-charset-russian, w32-charset-mac, w32-charset-baltic,
14311  #endif  #endif
14312  #ifdef UNICODE_CHARSET  #ifdef UNICODE_CHARSET
14313  "w32-charset-unicode, "  w32-charset-unicode,
14314  #endif  #endif
14315  "or w32-charset-oem.\n\  or w32-charset-oem.
14316  CODEPAGE should be an integer specifying the codepage that should be used\n\  CODEPAGE should be an integer specifying the codepage that should be used
14317  to display the character set, t to do no translation and output as Unicode,\n\  to display the character set, t to do no translation and output as Unicode,
14318  or nil to do no translation and output as 8 bit (or multibyte on far-east\n\  or nil to do no translation and output as 8 bit (or multibyte on far-east
14319  versions of Windows) characters.");  versions of Windows) characters.  */);
14320      Vw32_charset_info_alist = Qnil;      Vw32_charset_info_alist = Qnil;
14321    
14322    staticpro (&Qw32_charset_ansi);    staticpro (&Qw32_charset_ansi);
# Line 14358  versions of Windows) characters."); Line 14337  versions of Windows) characters.");
14337  #ifdef JOHAB_CHARSET  #ifdef JOHAB_CHARSET
14338    {    {
14339      static int w32_extra_charsets_defined = 1;      static int w32_extra_charsets_defined = 1;
14340      DEFVAR_BOOL ("w32-extra-charsets-defined", &w32_extra_charsets_defined, "");      DEFVAR_BOOL ("w32-extra-charsets-defined", &w32_extra_charsets_defined,
14341                     doc: /* Internal variable.  */);
14342    
14343      staticpro (&Qw32_charset_johab);      staticpro (&Qw32_charset_johab);
14344      Qw32_charset_johab = intern ("w32-charset-johab");      Qw32_charset_johab = intern ("w32-charset-johab");
# Line 14389  versions of Windows) characters."); Line 14369  versions of Windows) characters.");
14369    {    {
14370      static int w32_unicode_charset_defined = 1;      static int w32_unicode_charset_defined = 1;
14371      DEFVAR_BOOL ("w32-unicode-charset-defined",      DEFVAR_BOOL ("w32-unicode-charset-defined",
14372                   &w32_unicode_charset_defined, "");                   &w32_unicode_charset_defined,
14373                     doc: /* Internal variable.  */);
14374    
14375      staticpro (&Qw32_charset_unicode);      staticpro (&Qw32_charset_unicode);
14376      Qw32_charset_unicode = intern ("w32-charset-unicode");      Qw32_charset_unicode = intern ("w32-charset-unicode");

Legend:
Removed from v.1.131  
changed lines
  Added in v.1.132

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