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