changeset 13191:cb145d50f910

(make_lispy_event) [!USE_X_TOOLKIT]: Dragging the mouse into the menu-bar and releasing it there did not create a drag-mouse event. (set-input-mode) [MSDOS]: Do not call reset_sys_modes and init_sys_modes.
author Richard M. Stallman <rms@gnu.org>
date Wed, 11 Oct 1995 17:24:37 +0000
parents 1e174c7e3a00
children c7174381d5d9
files src/keyboard.c
diffstat 1 files changed, 10 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/src/keyboard.c	Wed Oct 11 17:20:35 1995 +0000
+++ b/src/keyboard.c	Wed Oct 11 17:24:37 1995 +0000
@@ -3191,17 +3191,20 @@
 	       (In the toolkit version, the toolkit handles the menu bar
 	       and Emacs doesn't know about it until after the user
 	       makes a selection.)  */
-	    if (row >= 0 && row < FRAME_MENU_BAR_LINES (f))
+	    if (row >= 0 && row < FRAME_MENU_BAR_LINES (f)
+		&& (event->modifiers & down_modifier))
 	      {
 		Lisp_Object items, item;
 		int hpos;
 		int i;
 
+#if 0
 		/* Activate the menu bar on the down event.  If the
 		   up event comes in before the menu code can deal with it,
 		   just ignore it.  */
 		if (! (event->modifiers & down_modifier))
 		  return Qnil;
+#endif
 
 		item = Qnil;
 		items = FRAME_MENU_BAR_ITEMS (f);
@@ -6870,7 +6873,11 @@
   stop_polling ();
 #endif
 
+#ifndef MSDOS
+  /* this causes startup screen to be restored and messes with the mouse */
   reset_sys_modes ();
+#endif
+
 #ifdef SIGIO
 /* Note SIGIO has been undef'd if FIONREAD is missing.  */
   if (read_socket_hook)
@@ -6905,7 +6912,9 @@
     /* Don't let this value be out of range.  */
     quit_char = XINT (quit) & (meta_key ? 0377 : 0177);
 
+#ifndef MSDOS
   init_sys_modes ();
+#endif
 
 #ifdef POLL_FOR_INPUT
   poll_suppress_count = 1;