From: Richard M. Stallman <rms@gnu.org>
Date: Thu, 1 Aug 1996 22:25:36 +0000 (+0000)
Subject: (make_menubar): Turn off menu accelerator.
X-Git-Tag: emacs-19.34~46
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=42de618f8f4c2908a710b059f582e5808cd046b2;p=emacs.git

(make_menubar): Turn off menu accelerator.
---

diff --git a/lwlib/lwlib-Xm.c b/lwlib/lwlib-Xm.c
index 7909bac7392..c5da97f85ed 100644
--- a/lwlib/lwlib-Xm.c
+++ b/lwlib/lwlib-Xm.c
@@ -1267,11 +1267,19 @@ xm_create_dialog (instance)
   return widget;
 }
 
+/* Create a menu bar.  We turn off the f10 key
+   because we have not yet managed to make it work right in Motif.  */
+
 static Widget
 make_menubar (instance)
      widget_instance* instance;
 {
-  return XmCreateMenuBar (instance->parent, instance->info->name, NULL, 0);
+  Arg al[1];
+  int ac;
+
+  ac = 0;
+  XtSetArg(al[0], XmNmenuAccelerator, 0);
+  return XmCreateMenuBar (instance->parent, instance->info->name, al, 1);
 }
 
 static void