From 6e0adcfa04ca8d0655e645515f90f129e958a84a Mon Sep 17 00:00:00 2001 From: Gerd Moellmann Date: Wed, 21 Jul 1999 21:43:52 +0000 Subject: [PATCH] (POSN_STRING): New. --- src/keyboard.h | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/src/keyboard.h b/src/keyboard.h index ac31eb1f291..64591fb8565 100644 --- a/src/keyboard.h +++ b/src/keyboard.h @@ -265,6 +265,11 @@ extern Lisp_Object item_properties; (XCONS (XCONS (XCONS (XCONS (posn)->cdr)->cdr)->cdr)->car) #define POSN_SCROLLBAR_PART(posn) (Fnth ((posn), make_number (4))) +/* A cons (STRING . STRING-CHARPOS), or nil in mouse-click events. + It's a cons if the click is over a string in the mode line. */ + +#define POSN_STRING(POSN) Fnth (make_number (4), (POSN)) + /* Some of the event heads. */ extern Lisp_Object Qswitch_frame; @@ -284,7 +289,7 @@ extern Lisp_Object Qscroll_bar_movement; (Fget ((event_head), Qevent_kind)) /* Symbols to use for non-text mouse positions. */ -extern Lisp_Object Qmode_line, Qvertical_line; +extern Lisp_Object Qmode_line, Qvertical_line, Qtop_line; /* Forward declaration for prototypes. */ struct input_event; -- 2.39.5