# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1073428668 0
# Node ID d8b5f748ccdd860778a59dddd232be12c4b795b5
# Parent  12bc18575b803e13cebe02d050b1605667b077fe
(POSN_POSN, POSN_SET_POSN): Rename macros from
POSN_BUFFER_POSN and POSN_SET_BUFFER_POSN. All uses changed.
(POSN_INBUFFER_P, POSN_BUFFER_POSN): New macros.

diff -r 12bc18575b80 -r d8b5f748ccdd src/keyboard.h
--- a/src/keyboard.h	Tue Jan 06 22:37:39 2004 +0000
+++ b/src/keyboard.h	Tue Jan 06 22:37:48 2004 +0000
@@ -254,17 +254,21 @@
 
 /* Extract the fields of a position.  */
 #define POSN_WINDOW(posn) (XCAR (posn))
-#define POSN_BUFFER_POSN(posn) (XCAR (XCDR (posn)))
-#define POSN_BUFFER_SET_POSN(posn,x) (XSETCAR (XCDR (posn), (x)))
+#define POSN_POSN(posn) (XCAR (XCDR (posn)))
+#define POSN_SET_POSN(posn,x) (XSETCAR (XCDR (posn), (x)))
 #define POSN_WINDOW_POSN(posn) (XCAR (XCDR (XCDR (posn))))
-#define POSN_TIMESTAMP(posn) \
-  (XCAR (XCDR (XCDR (XCDR (posn)))))
+#define POSN_TIMESTAMP(posn) (XCAR (XCDR (XCDR (XCDR (posn)))))
 #define POSN_SCROLLBAR_PART(posn)	(Fnth (make_number (4), (posn)))
 
 /* 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))
+#define POSN_STRING(posn) (Fnth (make_number (4), (posn)))
+
+/* If POSN_STRING is nil, event refers to buffer location.  */
+
+#define POSN_INBUFFER_P(posn) (NILP (POSN_STRING (posn)))
+#define POSN_BUFFER_POSN(posn) (Fnth (make_number (5), (posn)))
 
 /* Some of the event heads.  */
 extern Lisp_Object Qswitch_frame;