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