mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-01 08:17:38 +00:00
Code Issues Releases Activity

(MAXREQUEST): Defined.

Browse Source 
(Fx_server_max_request_size): New function.
(syms_of_xfns): Set it up.
This commit is contained in:
Richard M. Stallman 1993-07-25 22:01:06 +00:00
parent aca39f42ae
commit 9d317b2cfd
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
src/xfns.c
View File

@ -58,6 +58,12 @@ static XrmDatabase xrdb;
/* The class of this X application. */
#define EMACS_CLASS "Emacs"
#ifdef HAVE_X11R4
#define MAXREQUEST(dpy) (XMaxRequestSize (dpy))
#else
#define MAXREQUEST(dpy) ((dpy)->max_request_size)
#endif
/* The name we're using in resource queries. */
Lisp_Object Vx_resource_name;
@ -2378,6 +2384,18 @@ DEFUN ("x-display-color-cells", Fx_display_color_cells, Sx_display_color_cells,
return make_number (DisplayCells (dpy, DefaultScreen (dpy)));
}
DEFUN ("x-server-max-request-size", Fx_server_max_request_size,
Sx_server_max_request_size,
0, 1, 0,
"Returns the maximum request size of the X server FRAME is using.")
(frame)
Lisp_Object frame;
{
Display *dpy = x_current_display;
check_x ();
return make_number (MAXREQUEST (dpy));
}
DEFUN ("x-server-vendor", Fx_server_vendor, Sx_server_vendor, 0, 1, 0,
"Returns the vendor ID string of the X server FRAME is on.")
(frame)
@ -3737,6 +3755,7 @@ switches, if present.");
defsubr (&Sx_display_color_p);
defsubr (&Sx_list_fonts);
defsubr (&Sx_color_defined_p);
defsubr (&Sx_server_max_request_size);
defsubr (&Sx_server_vendor);
defsubr (&Sx_server_version);
defsubr (&Sx_display_pixel_width);