changeset 8170:d92a24366b22

(x_toolkit): New variable. (syms_of_xfns): Set up Lisp var x-toolkit.
author Richard M. Stallman <rms@gnu.org>
date Thu, 07 Jul 1994 06:50:45 +0000
parents 09a8da4ffadf
children 750282040c17
files src/xfns.c
diffstat 1 files changed, 12 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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);