XEmacs 21.2.32 "Kastor & Polydeukes".

[chise/xemacs-chise.git.1] / src / menubar.h

diff --git a/src/menubar.h b/src/menubar.h
index c67de98..9b2cce8 100644 (file)
--- a/src/menubar.h
+++ b/src/menubar.h
@@ -20,7 +20,7 @@ Boston, MA 02111-1307, USA.  */
 
 /* Synched up with: Not in FSF. */
 
-/* #### Not properly abstracted for device-independence. */
+/* #### Still needs some device-abstraction work. */
 
 #ifndef INCLUDED_menubar_h_
 #define INCLUDED_menubar_h_
@@ -35,6 +35,37 @@ Lisp_Object current_frame_menubar (const struct frame* f);
 
 EXFUN (Fmenu_find_real_submenu, 2);
 
+extern Lisp_Object Vmenu_accelerator_prefix;
+extern Lisp_Object Vmenu_accelerator_modifiers;
+extern Lisp_Object Vmenu_accelerator_enabled;
+extern Lisp_Object Vmenu_accelerator_map;
+
+extern Lisp_Object Qmenu_force;
+extern Lisp_Object Qmenu_fallback;
+
+extern Lisp_Object Qmenu_quit;
+extern Lisp_Object Qmenu_up;
+extern Lisp_Object Qmenu_down;
+extern Lisp_Object Qmenu_left;
+extern Lisp_Object Qmenu_right;
+extern Lisp_Object Qmenu_select;
+extern Lisp_Object Qmenu_escape;
+
+
+/* #### kluuuuuuuuuuuuuuuuuuuuuuuuuuuudge!
+   The author of the accelerator code didn't know what the hell he was doing.
+   Someone needs to abstract this properly. */
+#if defined(HAVE_X_WINDOWS) && defined(LWLIB_MENUBARS_LUCID)
+extern int x_kludge_lw_menu_active (void);
+struct command_builder;
+Lisp_Object command_builder_find_menu_accelerator (struct command_builder
+                                                  *builder);
+Lisp_Object command_builder_operate_menu_accelerator (struct command_builder
+                                                     *builder);
+
+extern int in_menu_callback;
+#endif
+ 
 #endif /* HAVE_MENUBARS */
 
 #endif /* INCLUDED_menubar_h_ */