/* Declarations useful when processing input.
- Copyright (C) 1985, 1986, 1987, 1993, 2001, 2002, 2003, 2004,
- 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
+ Copyright (C) 1985-1987, 1993, 2001-2011 Free Software Foundation, Inc.
This file is part of GNU Emacs.
/* Total number of times read_char has returned. */
extern int num_input_events;
-/* Total number of times read_char has returned, outside of macros. */
-extern EMACS_INT num_nonmacro_input_events;
-
/* Nonzero means polling for input is temporarily suppressed. */
extern int poll_suppress_count;
generated by the next character. */
extern Lisp_Object internal_last_event_frame;
\f
-/* Menu items. */
-
-extern Lisp_Object Vlucid_menu_bar_dirty_flag;
extern Lisp_Object Qrecompute_lucid_menubar, Qactivate_menubar_hook;
/* This holds a Lisp vector that holds the properties of a single
#define ENCODE_MENU_STRING(str) (str)
#endif
-#if defined (HAVE_NS) || defined (HAVE_NTGUI)
-
-typedef void * XtPointer;
-typedef unsigned char Boolean;
+#if defined (HAVE_NS) || defined (HAVE_NTGUI) || defined (USE_GTK)
/* Definitions copied from lwlib.h */
{
/* name of widget */
Lisp_Object lname;
- char* name;
+ const char* name;
/* value (meaning depend on widget type) */
- char* value;
+ const char* value;
/* keyboard equivalent. no implications for XtTranslations */
Lisp_Object lkey;
- char* key;
+ const char* key;
/* Help string or nil if none.
GC finds this string through the frame's menu_bar_vector
or through menu_items. */
Lisp_Object help;
/* true if enabled */
- Boolean enabled;
+ unsigned char enabled;
/* true if selected */
- Boolean selected;
+ unsigned char selected;
/* The type of a button. */
enum button_type button_type;
#if defined (HAVE_NTGUI)
/* true if menu title */
- Boolean title;
+ unsigned char title;
#endif
/* Contents of the sub-widgets, also selected slot for checkbox */
struct _widget_value* contents;
/* data passed to callback */
- XtPointer call_data;
+ void *call_data;
/* next one in the list */
struct _widget_value* next;
+#ifdef USE_GTK
+ struct _widget_value *free_list;
+#endif
} widget_value;
-extern widget_value *xmalloc_widget_value (void);
-extern widget_value *digest_single_submenu (int, int, int);
#endif /* HAVE_NS || HAVE_NTGUI */
\f
extern Lisp_Object Qfunction_key, Qmouse_click, Qmouse_movement;
extern Lisp_Object Qscroll_bar_movement;
+extern Lisp_Object Qhelp_echo;
+
/* Getting the kind of an event head. */
#define EVENT_HEAD_KIND(event_head) \
(Fget ((event_head), Qevent_kind))
/* Symbols to use for non-text mouse positions. */
extern Lisp_Object Qmode_line, Qvertical_line, Qheader_line;
+/* True while doing kbd input. */
+extern int waiting_for_input;
+
+/* Address (if not 0) of EMACS_TIME to zero out if a SIGIO interrupt
+ happens. */
+extern EMACS_TIME *input_available_clear_time;
+
+extern int ignore_mouse_drag_p;
+
+/* The primary selection. */
+extern Lisp_Object QPRIMARY;
+
/* Forward declaration for prototypes. */
struct input_event;
extern int parse_solitary_modifier (Lisp_Object symbol);
-/* Parent keymap of terminal-local function-key-map instances. */
-extern Lisp_Object Vfunction_key_map;
+/* This is like Vthis_command, except that commands never set it. */
+extern Lisp_Object real_this_command;
+
+/* Non-nil disable property on a command means
+ do not execute it; call disabled-command-function's value instead. */
+extern Lisp_Object QCbutton, QCtoggle, QCradio, QClabel;
+
+extern Lisp_Object Qinput_method_function;
+
+/* An event header symbol HEAD may have a property named
+ Qevent_symbol_element_mask, which is of the form (BASE MODIFIERS);
+ BASE is the base, unmodified version of HEAD, and MODIFIERS is the
+ mask of modifiers applied to it. If present, this is used to help
+ speed up parse_modifiers. */
+extern Lisp_Object Qevent_symbol_element_mask;
-/* Keymap of key translations that can override keymaps. */
-extern Lisp_Object Vkey_translation_map;
+/* The timestamp of the last input event we received from the X server.
+ X Windows wants this for selection ownership. */
+extern unsigned long last_event_timestamp;
+extern int quit_char;
+
+extern int timers_run;
+
+extern int menu_separator_name_p (const char *);
extern int parse_menu_item (Lisp_Object, int);
extern void echo_now (void);
extern void kbd_buffer_store_event_hold (struct input_event *,
struct input_event *);
extern void kbd_buffer_unget_event (struct input_event *);
-#ifdef POLL_FOR_INPUT
extern void poll_for_input_1 (void);
-#endif
extern void show_help_echo (Lisp_Object, Lisp_Object, Lisp_Object,
Lisp_Object, int);
extern void gen_help_event (Lisp_Object, Lisp_Object, Lisp_Object,
- Lisp_Object, int);
+ Lisp_Object, EMACS_INT);
extern void kbd_buffer_store_help_event (Lisp_Object, Lisp_Object);
extern Lisp_Object menu_item_eval_property (Lisp_Object);
extern int kbd_buffer_events_waiting (int);
struct input_event *);
extern EMACS_TIME timer_check (int);
-/* arch-tag: 769cbade-1ba9-4950-b886-db265b061aa3
- (do not change this comment) */
HCoop / bpt / emacs.git / blobdiff