comparison src/keyboard.c @ 104362:cc98a0640268

(syms_of_keyboard): Default to 5 buttons, which should be enough for the most common situations. Avoid SET_SYMBOL_VALUE.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 19 Aug 2009 14:39:35 +0000
parents 19668aab4711
children cd8d62c35d57
comparison
equal deleted inserted replaced
104361:c31a03d47ec9 104362:cc98a0640268
11971 Fput (*p->var, Qevent_kind, *p->kind); 11971 Fput (*p->var, Qevent_kind, *p->kind);
11972 Fput (*p->var, Qevent_symbol_elements, Fcons (*p->var, Qnil)); 11972 Fput (*p->var, Qevent_symbol_elements, Fcons (*p->var, Qnil));
11973 } 11973 }
11974 } 11974 }
11975 11975
11976 button_down_location = Fmake_vector (make_number (1), Qnil); 11976 button_down_location = Fmake_vector (make_number (5), Qnil);
11977 staticpro (&button_down_location); 11977 staticpro (&button_down_location);
11978 mouse_syms = Fmake_vector (make_number (1), Qnil); 11978 mouse_syms = Fmake_vector (make_number (5), Qnil);
11979 staticpro (&mouse_syms); 11979 staticpro (&mouse_syms);
11980 wheel_syms = Fmake_vector (make_number (4), Qnil); 11980 wheel_syms = Fmake_vector (make_number (4), Qnil);
11981 staticpro (&wheel_syms); 11981 staticpro (&wheel_syms);
11982 11982
11983 { 11983 {
12328 DEFVAR_LISP ("echo-area-clear-hook", ..., 12328 DEFVAR_LISP ("echo-area-clear-hook", ...,
12329 doc: /* Normal hook run when clearing the echo area. */); 12329 doc: /* Normal hook run when clearing the echo area. */);
12330 #endif 12330 #endif
12331 Qecho_area_clear_hook = intern ("echo-area-clear-hook"); 12331 Qecho_area_clear_hook = intern ("echo-area-clear-hook");
12332 staticpro (&Qecho_area_clear_hook); 12332 staticpro (&Qecho_area_clear_hook);
12333 SET_SYMBOL_VALUE (Qecho_area_clear_hook, Qnil); 12333 Fset (Qecho_area_clear_hook, Qnil);
12334 12334
12335 DEFVAR_LISP ("lucid-menu-bar-dirty-flag", &Vlucid_menu_bar_dirty_flag, 12335 DEFVAR_LISP ("lucid-menu-bar-dirty-flag", &Vlucid_menu_bar_dirty_flag,
12336 doc: /* Non-nil means menu bar, specified Lucid style, needs to be recomputed. */); 12336 doc: /* Non-nil means menu bar, specified Lucid style, needs to be recomputed. */);
12337 Vlucid_menu_bar_dirty_flag = Qnil; 12337 Vlucid_menu_bar_dirty_flag = Qnil;
12338 12338