From 1d3dac41c0a34c3877618907ddc96e0364082537 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 7 Jul 1994 06:50:45 +0000 Subject: [PATCH] (x_toolkit): New variable. (syms_of_xfns): Set up Lisp var x-toolkit. --- src/xfns.c | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) diff --git a/src/xfns.c b/src/xfns.c index 3e04cf4cc7e..c138c4cacb1 100644 --- a/src/xfns.c +++ b/src/xfns.c @@ -90,6 +90,9 @@ extern void free_frame_menubar (); /* X Resource data base */ static XrmDatabase xrdb; +/* 1 if using a toolkit, 0 otherwise. */ +static int x_toolkit; + /* The class of this X application. */ #define EMACS_CLASS "Emacs" @@ -4442,7 +4445,15 @@ or when you set the mouse color."); Vmouse_depressed = Qnil; DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager, - "t if no X window manager is in use."); + "Non-nil if no X window manager is in use."); + + DEFVAR_BOOL ("x-toolkit", &x_toolkit, + "Non-nil if this Emacs was built to use an X toolkit."); +#ifdef USE_X_TOOLKIT + x_toolkit = 1; +#else + x_toolkit = 0; +#endif #ifdef HAVE_X11 defsubr (&Sx_get_resource); -- 2.39.5