X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/98a20c65dfeee04bb7d25e081c5b863de8fa9f33..de9855d5a3ca490f67933aa1ae5a88f571199626:/src/xmenu.c

diff --git a/src/xmenu.c b/src/xmenu.c
index 63dfb5102b..d049fb99c6 100644
--- a/src/xmenu.c
+++ b/src/xmenu.c
@@ -3776,8 +3776,7 @@ syms_of_xmenu ()
 
 #if defined (USE_GTK) || defined (USE_X_TOOLKIT)
   defsubr (&Smenu_bar_open);
-  Fdefalias (intern ("accelerate-menu"), intern (Smenu_bar_open.symbol_name),
-             Qnil);
+  Ffset (intern ("accelerate-menu"), intern (Smenu_bar_open.symbol_name));
 #endif
 
 #ifdef HAVE_MENUS