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); |
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 |
{ |
{ |
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 |
{ |
{ |
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; |
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 |
{ |
{ |
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 |
{ |
{ |
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 |
{ |
{ |
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 |
{ |
{ |
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 |
{ |
{ |
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 |
{ |
{ |
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 |
{ |
{ |
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 |
{ |
{ |
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 |
{ |
{ |
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 |
{ |
{ |
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 |
{ |
{ |
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 |
{ |
{ |
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 |
{ |
{ |
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 |
{ |
{ |
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 |
{ |
{ |
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 |
{ |
{ |
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 |
{ |
{ |
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 |
{ |
{ |
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 |
{ |
{ |
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 |
{ |
{ |
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 |
{ |
{ |
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); |
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 |
{ |
{ |
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; |
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 |
{ |
{ |
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 |
{ |
{ |
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 |
{ |
{ |
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 |
{ |
{ |
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 |
{ |
{ |
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 |
{ |
{ |
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; |
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 |
{ |
{ |
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 |
{ |
{ |
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 |
{ |
{ |
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 |
{ |
{ |
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 |
{ |
{ |
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 |
{ |
{ |
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 |
{ |
{ |
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 |
{ |
{ |
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 |
{ |
{ |
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; |
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); |
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"); |
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"); |