# HG changeset patch
# User Karl Heuer <kwzh@gnu.org>
# Date 799129212 0
# Node ID c4ef6460a9c9cedb80c3d5d373290530200e2c07
# Parent  00bf6e6098d4c59a5dd109e85a989f253dc40855
(read_char, read_char_x_menu_prompt): Exclude
menu-bar clicks when processing mouse clicks.

diff -r 00bf6e6098d4 -r c4ef6460a9c9 src/keyboard.c
--- a/src/keyboard.c	Sat Apr 29 04:19:45 1995 +0000
+++ b/src/keyboard.c	Sat Apr 29 04:20:12 1995 +0000
@@ -1820,7 +1820,9 @@
      does not pass on any keymaps.  */
 
   if (nmaps > 0 && INTERACTIVE
-      && !NILP (prev_event) && EVENT_HAS_PARAMETERS (prev_event)
+      && !NILP (prev_event)
+      && EVENT_HAS_PARAMETERS (prev_event)
+      && !EQ (XCONS (prev_event)->car, Qmenu_bar)
       /* Don't bring up a menu if we already have another event.  */
       && NILP (Vunread_command_events)
       && unread_command_char < 0)
@@ -4622,7 +4624,8 @@
 #if (defined (HAVE_X_WINDOWS) && defined (HAVE_X_MENU)) || defined (MSDOS)
   /* If we got to this point via a mouse click,
      use a real menu for mouse selection.  */
-  if (EVENT_HAS_PARAMETERS (prev_event))
+  if (EVENT_HAS_PARAMETERS (prev_event)
+      && !EQ (XCONS (prev_event)->car, Qmenu_bar))
     {
       /* Display the menu and get the selection.  */
       Lisp_Object *realmaps