# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 741846390 0
# Node ID 8ef557c6a30a2352dbd2ceeb1f10c0abe1383ac7
# Parent  c24f84e2f01977d32d02ebe055c0684cbd80eb9e
	* keyboard.h (EVENT_CLICK_COUNT, POSN_SCROLLBAR_PART): New
	accessors.

diff -r c24f84e2f019 -r 8ef557c6a30a src/keyboard.h
--- 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;