diff options
author | Richard M. Stallman <rms@gnu.org> | 1995-10-11 17:24:37 +0000 |
---|---|---|
committer | Richard M. Stallman <rms@gnu.org> | 1995-10-11 17:24:37 +0000 |
commit | c2b865cc11cab35165e473737f4af2319fe18290 (patch) | |
tree | c535940b8cd6ec1d9631cc8715185eedb4ba7451 | |
parent | e2fa66a1e3733af2cd94af56e417ce7ac17df572 (diff) | |
download | emacs-c2b865cc11cab35165e473737f4af2319fe18290.tar.gz |
(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.
-rw-r--r-- | src/keyboard.c | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/src/keyboard.c b/src/keyboard.c index 019b0d2597b..10e6a7842ad 100644 --- a/src/keyboard.c +++ b/src/keyboard.c @@ -3191,17 +3191,20 @@ make_lispy_event (event) (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 @@ See also `current-input-mode'.") 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 @@ See also `current-input-mode'.") /* 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; |