(POSN_STRING): New.

diff --git a/src/keyboard.h b/src/keyboard.h
index ac31eb1f29171dd2d56fb690471114f5cbf7506c..64591fb856535c23501825859fc260f355bf55e0 100644 (file)
--- 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;