comparison src/keyboard.c @ 46718:175cd09f34d2

(make_lispy_event): Use #ifdef to test USE_TOOLKIT_SCROLL_BARS. Explicitly clear up_modifier in event->modifiers.
author Richard M. Stallman <rms@gnu.org>
date Mon, 29 Jul 2002 01:55:43 +0000
parents 765f9cd60063
children a8e027c9c403
comparison
equal deleted inserted replaced
46717:505956923015 46718:175cd09f34d2
5183 Fcons (position, 5183 Fcons (position,
5184 Qnil)); 5184 Qnil));
5185 } 5185 }
5186 } 5186 }
5187 5187
5188 #if USE_TOOLKIT_SCROLL_BARS 5188 #ifdef USE_TOOLKIT_SCROLL_BARS
5189 5189
5190 /* We don't have down and up events if using toolkit scroll bars, 5190 /* We don't have down and up events if using toolkit scroll bars,
5191 so make this always a click event. Store in the `part' of 5191 so make this always a click event. Store in the `part' of
5192 the Lisp event a symbol which maps to the following actions: 5192 the Lisp event a symbol which maps to the following actions:
5193 5193
5219 Fcons (make_number (event->timestamp), 5219 Fcons (make_number (event->timestamp),
5220 Fcons (part, Qnil))))); 5220 Fcons (part, Qnil)))));
5221 5221
5222 /* Always treat scroll bar events as clicks. */ 5222 /* Always treat scroll bar events as clicks. */
5223 event->modifiers |= click_modifier; 5223 event->modifiers |= click_modifier;
5224 event->modifiers &= ~up_modifier;
5224 5225
5225 /* Get the symbol we should use for the mouse click. */ 5226 /* Get the symbol we should use for the mouse click. */
5226 head = modify_event_symbol (event->code, 5227 head = modify_event_symbol (event->code,
5227 event->modifiers, 5228 event->modifiers,
5228 Qmouse_click, 5229 Qmouse_click,