diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/keyboard.h | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/keyboard.h b/src/keyboard.h index e3bb4e5652b..06deab0c365 100644 --- a/src/keyboard.h +++ b/src/keyboard.h | |||
| @@ -37,15 +37,16 @@ extern Lisp_Object Vfunction_key_map; | |||
| 37 | #define EVENT_HAS_PARAMETERS(event) \ | 37 | #define EVENT_HAS_PARAMETERS(event) \ |
| 38 | (XTYPE (event) == Lisp_Cons) | 38 | (XTYPE (event) == Lisp_Cons) |
| 39 | 39 | ||
| 40 | /* Return the head of an event. This works on composite and simple events. */ | 40 | /* Extract the head from an event. |
| 41 | This works on composite and simple events. */ | ||
| 41 | #define EVENT_HEAD(event) \ | 42 | #define EVENT_HEAD(event) \ |
| 42 | (EVENT_HAS_PARAMETERS (event) ? XCONS (event)->car : (event)) | 43 | (EVENT_HAS_PARAMETERS (event) ? XCONS (event)->car : (event)) |
| 43 | 44 | ||
| 44 | /* Return the starting and ending locations of a composite event. */ | 45 | /* Extract the starting and ending positions from a composite event. */ |
| 45 | #define EVENT_START(event) (XCONS (XCONS (event)->cdr)->car) | 46 | #define EVENT_START(event) (XCONS (XCONS (event)->cdr)->car) |
| 46 | #define EVENT_END(event) (XCONS (XCONS (XCONS (event)->cdr)->cdr)->car) | 47 | #define EVENT_END(event) (XCONS (XCONS (XCONS (event)->cdr)->cdr)->car) |
| 47 | 48 | ||
| 48 | /* Return the fields of a position. */ | 49 | /* Extract the fields of a position. */ |
| 49 | #define POSN_WINDOW(posn) (XCONS (posn)->car) | 50 | #define POSN_WINDOW(posn) (XCONS (posn)->car) |
| 50 | #define POSN_BUFFER_POSN(posn) (XCONS (XCONS (posn)->cdr)->car) | 51 | #define POSN_BUFFER_POSN(posn) (XCONS (XCONS (posn)->cdr)->car) |
| 51 | #define POSN_SCROLLBAR_BUTTON POSN_BUFFER_POSN | 52 | #define POSN_SCROLLBAR_BUTTON POSN_BUFFER_POSN |