comparison src/xfns.c @ 8170:d92a24366b22

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

8169:09a8da4ffadf

#define max(a,b) ((a) > (b) ? (a) : (b))

#ifdef HAVE_X11
/* X Resource data base */
static XrmDatabase xrdb;

/* The class of this X application.  */
#define EMACS_CLASS "Emacs"

#ifdef HAVE_X11R4

  DEFVAR_LISP ("mouse-grabbed", &Vmouse_depressed,
	       "Non-nil if a mouse button is currently depressed.");
  Vmouse_depressed = Qnil;

  DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager,
	       "t if no X window manager is in use.");

#ifdef HAVE_X11
  defsubr (&Sx_get_resource);
#if 0
  defsubr (&Sx_draw_rectangle);

8170:d92a24366b22

#define max(a,b) ((a) > (b) ? (a) : (b))

#ifdef HAVE_X11
/* 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"

#ifdef HAVE_X11R4

  DEFVAR_LISP ("mouse-grabbed", &Vmouse_depressed,
	       "Non-nil if a mouse button is currently depressed.");
  Vmouse_depressed = Qnil;

  DEFVAR_LISP ("x-no-window-manager", &Vx_no_window_manager,
	       "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);
#if 0
  defsubr (&Sx_draw_rectangle);