Mercurial > emacs
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)); |