Mercurial > hg > xemacs-beta

comparison src/event-stream.c @ 187:b405438285a2 r20-3b20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b20
author cvs
date Mon, 13 Aug 2007 09:56:28 +0200
parents 3d6bfa290dbd
children 489f57a838ef
comparison
equal deleted inserted replaced
186:24ac94803b48 187:b405438285a2
221 221
222 /* Recent keys ring location; a vector of events or nil-s */ 222 /* Recent keys ring location; a vector of events or nil-s */
223 Lisp_Object Vrecent_keys_ring; 223 Lisp_Object Vrecent_keys_ring;
224 int recent_keys_ring_size; 224 int recent_keys_ring_size;
225 int recent_keys_ring_index; 225 int recent_keys_ring_index;
226
227 /* Boolean specifying whether keystrokes should be added to
228 recent-keys. */
229 int inhibit_input_event_recording;
226 230
227 /* prefix key(s) that must match in order to activate menu. 231 /* prefix key(s) that must match in order to activate menu.
228 This is ugly. fix me. 232 This is ugly. fix me.
229 */ 233 */
230 Lisp_Object Vmenu_accelerator_prefix; 234 Lisp_Object Vmenu_accelerator_prefix;
2218 macro, then it goes into the macro. 2222 macro, then it goes into the macro.
2219 */ 2223 */
2220 if (store_this_key) 2224 if (store_this_key)
2221 { 2225 {
2222 push_this_command_keys (event); 2226 push_this_command_keys (event);
2223 push_recent_keys (event); 2227 if (!inhibit_input_event_recording)
2228 push_recent_keys (event);
2224 dribble_out_event (event); 2229 dribble_out_event (event);
2225 if (!NILP (con->defining_kbd_macro) && NILP (Vexecuting_macro)) 2230 if (!NILP (con->defining_kbd_macro) && NILP (Vexecuting_macro))
2226 { 2231 {
2227 if (!EVENTP (command_builder->current_events)) 2232 if (!EVENTP (command_builder->current_events))
2228 finalize_kbd_macro_chars (con); 2233 finalize_kbd_macro_chars (con);
5157 explicitly sent to the XEmacs process). 5162 explicitly sent to the XEmacs process).
5158 */ ); 5163 */ );
5159 debug_emacs_events = 0; 5164 debug_emacs_events = 0;
5160 #endif 5165 #endif
5161 5166
5167 DEFVAR_BOOL ("inhibit-input-event-recording", &inhibit_input_event_recording /*
5168 Non-nil inhibits recording of input-events to recent-keys ring.
5169 */ );
5170 inhibit_input_event_recording = 0;
5171
5162 DEFVAR_LISP("menu-accelerator-prefix", &Vmenu_accelerator_prefix /* 5172 DEFVAR_LISP("menu-accelerator-prefix", &Vmenu_accelerator_prefix /*
5163 Prefix key(s) that must be typed before menu accelerators will be activated. 5173 Prefix key(s) that must be typed before menu accelerators will be activated.
5164 Set this to a value acceptable by define-key. 5174 Set this to a value acceptable by define-key.
5165 */ ); 5175 */ );
5166 Vmenu_accelerator_prefix = Qnil; 5176 Vmenu_accelerator_prefix = Qnil;