diff options
author | Richard M. Stallman <rms@gnu.org> | 1993-07-25 22:01:06 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1993-07-25 22:01:06 +0000 |
commit | 667a65de4c6bf38a2fdc45e00214ef70571beccb (patch) | |
tree | d2da4b90c2ca99705a197aa4cdbf1ae4c4538cb5 /src/xfns.c | |
parent | 5d6988911025fcbe3fdcae033867c14f67f79d04 (diff) | |
download | emacs-667a65de4c6bf38a2fdc45e00214ef70571beccb.tar.gz |
(MAXREQUEST): Defined.
(Fx_server_max_request_size): New function.
(syms_of_xfns): Set it up.
Diffstat (limited to 'src/xfns.c')
-rw-r--r-- | src/xfns.c | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/src/xfns.c b/src/xfns.c index 4083ec74be0..6f42dcf2cd4 100644 --- a/src/xfns.c +++ b/src/xfns.c @@ -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); |