From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 7 Jul 1994 06:50:45 +0000 (+0000)
Subject: (x_toolkit): New variable.
X-Git-Tag: emacs-19.34~7683
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1d3dac41c0a34c3877618907ddc96e0364082537;p=emacs.git

(x_toolkit): New variable.
(syms_of_xfns): Set up Lisp var x-toolkit.
---

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);