aboutsummaryrefslogtreecommitdiffstats
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/keyboard.h7
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