# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1027907743 0
# Node ID 175cd09f34d2be331ba7acb59dee73fab00bdd1e
# Parent  5059569230154d6df2b2586f5f7fbcf704c3bf60
(make_lispy_event): Use #ifdef to test USE_TOOLKIT_SCROLL_BARS.
Explicitly clear up_modifier in event->modifiers.

diff -r 505956923015 -r 175cd09f34d2 src/keyboard.c
--- a/src/keyboard.c	Mon Jul 29 01:53:42 2002 +0000
+++ b/src/keyboard.c	Mon Jul 29 01:55:43 2002 +0000
@@ -5185,7 +5185,7 @@
 	}
       }
 
-#if USE_TOOLKIT_SCROLL_BARS
+#ifdef USE_TOOLKIT_SCROLL_BARS
 
       /* We don't have down and up events if using toolkit scroll bars,
 	 so make this always a click event.  Store in the `part' of
@@ -5221,6 +5221,7 @@
 
 	/* Always treat scroll bar events as clicks. */
 	event->modifiers |= click_modifier;
+	event->modifiers &= ~up_modifier;
 
 	/* Get the symbol we should use for the mouse click.  */
 	head = modify_event_symbol (event->code,