# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1069968481 0
# Node ID 8337e648c2b3bfa26a4e9acc8a8fbe4ae8e7c269
# Parent  a0409e91c835473667c97d420a583b458bf9ae47
(posn-object-x-y): New defun.

diff -r a0409e91c835 -r 8337e648c2b3 lisp/subr.el
--- a/lisp/subr.el	Thu Nov 27 21:17:23 2003 +0000
+++ b/lisp/subr.el	Thu Nov 27 21:28:01 2003 +0000
@@ -757,6 +757,12 @@
 and `event-end' functions." 
   (nth 4 position))
 
+(defsubst posn-object-x-y (position)
+  "Return the x and y coordinates relative to the object of POSITION.
+POSITION should be a list of the form returned by the `event-start'
+and `event-end' functions." 
+  (nth 7 position))
+
 
 ;;;; Obsolescent names for functions.