Commit 1d3dac41 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(x_toolkit): New variable.

(syms_of_xfns): Set up Lisp var x-toolkit.
parent 0a0e8fe6
......@@ -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);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment