# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 773563845 0
# Node ID d92a24366b2237e0f77418898d49b156ad2c2daa
# Parent  09a8da4ffadfc6ee19a99898e3f1ad89702a1e35
(x_toolkit): New variable.
(syms_of_xfns): Set up Lisp var x-toolkit.

diff -r 09a8da4ffadf -r d92a24366b22 src/xfns.c
--- a/src/xfns.c	Thu Jul 07 06:42:21 1994 +0000
+++ b/src/xfns.c	Thu Jul 07 06:50:45 1994 +0000
@@ -90,6 +90,9 @@
 /* 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 @@
   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);