From e08f9a0df92ee0d3cbb00126b39cc648553e3e7f Mon Sep 17 00:00:00 2001 From: "Kim F. Storm" Date: Thu, 27 Nov 2003 21:28:01 +0000 Subject: [PATCH] (posn-object-x-y): New defun. --- lisp/subr.el | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/lisp/subr.el b/lisp/subr.el index 9dc6c2ba6ec..dba7331f98c 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -757,6 +757,12 @@ POSITION should be a list of the form returned by the `event-start' 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. -- 2.39.2