comparison src/keyboard.h @ 25020:b4fa5b2f7e8c

(POSN_STRING): New.
author Gerd Moellmann <gerd@gnu.org>
date Wed, 21 Jul 1999 21:43:52 +0000
parents 0bf811ce5c67
children e98819a94512
comparison
equal deleted inserted replaced
25019:c5eb87f3571e 25020:b4fa5b2f7e8c
263 #define POSN_WINDOW_POSN(posn) (XCONS (XCONS (XCONS (posn)->cdr)->cdr)->car) 263 #define POSN_WINDOW_POSN(posn) (XCONS (XCONS (XCONS (posn)->cdr)->cdr)->car)
264 #define POSN_TIMESTAMP(posn) \ 264 #define POSN_TIMESTAMP(posn) \
265 (XCONS (XCONS (XCONS (XCONS (posn)->cdr)->cdr)->cdr)->car) 265 (XCONS (XCONS (XCONS (XCONS (posn)->cdr)->cdr)->cdr)->car)
266 #define POSN_SCROLLBAR_PART(posn) (Fnth ((posn), make_number (4))) 266 #define POSN_SCROLLBAR_PART(posn) (Fnth ((posn), make_number (4)))
267 267
268 /* A cons (STRING . STRING-CHARPOS), or nil in mouse-click events.
269 It's a cons if the click is over a string in the mode line. */
270
271 #define POSN_STRING(POSN) Fnth (make_number (4), (POSN))
272
268 /* Some of the event heads. */ 273 /* Some of the event heads. */
269 extern Lisp_Object Qswitch_frame; 274 extern Lisp_Object Qswitch_frame;
270 275
271 /* Properties on event heads. */ 276 /* Properties on event heads. */
272 extern Lisp_Object Qevent_kind, Qevent_symbol_elements; 277 extern Lisp_Object Qevent_kind, Qevent_symbol_elements;
282 /* Getting the kind of an event head. */ 287 /* Getting the kind of an event head. */
283 #define EVENT_HEAD_KIND(event_head) \ 288 #define EVENT_HEAD_KIND(event_head) \
284 (Fget ((event_head), Qevent_kind)) 289 (Fget ((event_head), Qevent_kind))
285 290
286 /* Symbols to use for non-text mouse positions. */ 291 /* Symbols to use for non-text mouse positions. */
287 extern Lisp_Object Qmode_line, Qvertical_line; 292 extern Lisp_Object Qmode_line, Qvertical_line, Qtop_line;
288 293
289 /* Forward declaration for prototypes. */ 294 /* Forward declaration for prototypes. */
290 struct input_event; 295 struct input_event;
291 296
292 extern Lisp_Object get_keymap_1 P_ ((Lisp_Object, int, int)); 297 extern Lisp_Object get_keymap_1 P_ ((Lisp_Object, int, int));