Mercurial > emacs
changeset 3990:8ef557c6a30a
* keyboard.h (EVENT_CLICK_COUNT, POSN_SCROLLBAR_PART): New
accessors.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Mon, 05 Jul 1993 04:26:30 +0000 |
| parents | c24f84e2f019 |
| children | ad2bd545983e |
| files | src/keyboard.h |
| diffstat | 1 files changed, 4 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/keyboard.h Mon Jul 05 03:20:12 1993 +0000 +++ b/src/keyboard.h Mon Jul 05 04:26:30 1993 +0000 @@ -62,12 +62,16 @@ #define EVENT_START(event) (XCONS (XCONS (event)->cdr)->car) #define EVENT_END(event) (XCONS (XCONS (XCONS (event)->cdr)->cdr)->car) +/* Extract the click count from a multi-click event. */ +#define EVENT_CLICK_COUNT(event) (Fnth ((event), make_number (2))) + /* Extract the fields of a position. */ #define POSN_WINDOW(posn) (XCONS (posn)->car) #define POSN_BUFFER_POSN(posn) (XCONS (XCONS (posn)->cdr)->car) #define POSN_WINDOW_POSN(posn) (XCONS (XCONS (XCONS (posn)->cdr)->cdr)->car) #define POSN_TIMESTAMP(posn) \ (XCONS (XCONS (XCONS (XCONS (posn)->cdr)->cdr)->cdr)->car) +#define POSN_SCROLLBAR_PART(posn) (Fnth ((posn), make_number (4))) /* Some of the event heads. */ extern Lisp_Object Qswitch_frame;