aboutsummaryrefslogtreecommitdiffstats
path: root/src/keyboard.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/keyboard.c')
-rw-r--r--src/keyboard.c16
1 files changed, 8 insertions, 8 deletions
diff --git a/src/keyboard.c b/src/keyboard.c
index d2d5919fc85..74f8d7d51e0 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -1,6 +1,7 @@
1/* Keyboard and mouse input; editor command loop. 1/* Keyboard and mouse input; editor command loop.
2 Copyright (C) 1985, 1986, 1987, 1988, 1989, 1993, 1994, 1995, 1996, 1997, 2 Copyright (C) 1985, 1986, 1987, 1988, 1989, 1993, 1994, 1995,
3 1999, 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation, Inc. 3 1996, 1997, 1999, 2000, 2001, 2002, 2003, 2004,
4 2005 Free Software Foundation, Inc.
4 5
5This file is part of GNU Emacs. 6This file is part of GNU Emacs.
6 7
@@ -4010,7 +4011,7 @@ kbd_buffer_get_event (kbp, used_mouse_menu)
4010 kbd_fetch_ptr = event + 1; 4011 kbd_fetch_ptr = event + 1;
4011 } 4012 }
4012#endif 4013#endif
4013#if defined (HAVE_X11) || defined (HAVE_NTGUI) 4014#if defined (HAVE_X11) || defined (HAVE_NTGUI) || defined (MAC_OS)
4014 else if (event->kind == ICONIFY_EVENT) 4015 else if (event->kind == ICONIFY_EVENT)
4015 { 4016 {
4016 /* Make an event (iconify-frame (FRAME)). */ 4017 /* Make an event (iconify-frame (FRAME)). */
@@ -7001,8 +7002,6 @@ menu_bar_items (old)
7001 7002
7002 int i; 7003 int i;
7003 7004
7004 struct gcpro gcpro1;
7005
7006 /* In order to build the menus, we need to call the keymap 7005 /* In order to build the menus, we need to call the keymap
7007 accessors. They all call QUIT. But this function is called 7006 accessors. They all call QUIT. But this function is called
7008 during redisplay, during which a quit is fatal. So inhibit 7007 during redisplay, during which a quit is fatal. So inhibit
@@ -7018,8 +7017,6 @@ menu_bar_items (old)
7018 menu_bar_items_vector = Fmake_vector (make_number (24), Qnil); 7017 menu_bar_items_vector = Fmake_vector (make_number (24), Qnil);
7019 menu_bar_items_index = 0; 7018 menu_bar_items_index = 0;
7020 7019
7021 GCPRO1 (menu_bar_items_vector);
7022
7023 /* Build our list of keymaps. 7020 /* Build our list of keymaps.
7024 If we recognize a function key and replace its escape sequence in 7021 If we recognize a function key and replace its escape sequence in
7025 keybuf with its symbol, or if the sequence starts with a mouse 7022 keybuf with its symbol, or if the sequence starts with a mouse
@@ -7123,7 +7120,6 @@ menu_bar_items (old)
7123 menu_bar_items_index = i; 7120 menu_bar_items_index = i;
7124 7121
7125 Vinhibit_quit = oquit; 7122 Vinhibit_quit = oquit;
7126 UNGCPRO;
7127 return menu_bar_items_vector; 7123 return menu_bar_items_vector;
7128} 7124}
7129 7125
@@ -11167,6 +11163,9 @@ syms_of_keyboard ()
11167 menu_bar_one_keymap_changed_items = Qnil; 11163 menu_bar_one_keymap_changed_items = Qnil;
11168 staticpro (&menu_bar_one_keymap_changed_items); 11164 staticpro (&menu_bar_one_keymap_changed_items);
11169 11165
11166 menu_bar_items_vector = Qnil;
11167 staticpro (&menu_bar_items_vector);
11168
11170 defsubr (&Sevent_convert_list); 11169 defsubr (&Sevent_convert_list);
11171 defsubr (&Sread_key_sequence); 11170 defsubr (&Sread_key_sequence);
11172 defsubr (&Sread_key_sequence_vector); 11171 defsubr (&Sread_key_sequence_vector);
@@ -11443,6 +11442,7 @@ might happen repeatedly and make Emacs nonfunctional. */);
11443 doc: /* Normal hook run when clearing the echo area. */); 11442 doc: /* Normal hook run when clearing the echo area. */);
11444#endif 11443#endif
11445 Qecho_area_clear_hook = intern ("echo-area-clear-hook"); 11444 Qecho_area_clear_hook = intern ("echo-area-clear-hook");
11445 staticpro (&Qecho_area_clear_hook);
11446 SET_SYMBOL_VALUE (Qecho_area_clear_hook, Qnil); 11446 SET_SYMBOL_VALUE (Qecho_area_clear_hook, Qnil);
11447 11447
11448 DEFVAR_LISP ("lucid-menu-bar-dirty-flag", &Vlucid_menu_bar_dirty_flag, 11448 DEFVAR_LISP ("lucid-menu-bar-dirty-flag", &Vlucid_menu_bar_dirty_flag,