* xmenu.c (syms_of_xmenu): Make accelerate-menu an alias for

menu-bar-open.
2006-06-01 08:57:37 +00:00
parent 4054794d58
commit 2e92a7cbd6
2 changed files with 7 additions and 0 deletions
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2006-06-01  Jan Dj,Ad(Brv  <jan.h.d@swipnet.se>
+
+	* xmenu.c (syms_of_xmenu): Make accelerate-menu an alias for
+	menu-bar-open.
+
 2006-06-01  Jan Dj,Ad(Brv  <jan.h.d@swipnet.se>

 	* xmenu.c (Fmenu_bar_open, syms_of_xmenu): Change menu-bar-start to
--- a/src/xmenu.c
+++ b/src/xmenu.c
@@ -3772,6 +3772,8 @@ The enable predicate for a menu command should check this variable.  */);

 #if defined (USE_GTK) || defined (USE_X_TOOLKIT)
  defsubr (&Smenu_bar_open);
+  Fdefalias (intern ("accelerate-menu"), intern (Smenu_bar_open.symbol_name),
+             Qnil);
 #endif

 #ifdef HAVE_MENUS