--- a/src/menubar.c	Mon Aug 13 09:49:11 2007 +0200
+++ b/src/menubar.c	Mon Aug 13 09:50:14 2007 +0200
@@ -45,6 +45,7 @@
 static Lisp_Object Vcurrent_menubar; /* DO NOT ever reference this.
 					Always go through Qcurrent_menubar.
 					See below. */
+
 Lisp_Object Vblank_menubar;
 
 int popup_menu_titles;
@@ -177,11 +178,22 @@
   return Qnil;
 }
 
+DEFUN ("accelerate-menu", Faccelerate_menu, 0, 0, "_", /*
+Make the menubar active.  Menu items can be selected using menu accelerators
+or by actions defined in menu-accelerator-map.
+*/
+       ())
+{
+  event_menu_accelerate ();
+  return Qnil;
+}
+
 void
 syms_of_menubar (void)
 {
   defsymbol (&Qcurrent_menubar, "current-menubar");
   DEFSUBR (Fpopup_menu);
+  DEFSUBR (Faccelerate_menu);
 }
 
 void