Mercurial > emacs
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, |