From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 24 Jul 2004 21:38:22 +0000 (+0000)
Subject: (Fwindow_at): Take account of FRAME_INTERNAL_BORDER_WIDTH.
X-Git-Tag: ttn-vms-21-2-B4~5404
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2c77cf3b924db00738fd2f27afdc457dd79a9932;p=emacs.git

(Fwindow_at): Take account of FRAME_INTERNAL_BORDER_WIDTH.
---

diff --git a/src/window.c b/src/window.c
index 5aafd8a741a..409d0972fdd 100644
--- a/src/window.c
+++ b/src/window.c
@@ -938,8 +938,10 @@ column 0.  */)
   CHECK_NUMBER_OR_FLOAT (y);
 
   return window_from_coordinates (f,
-				  FRAME_PIXEL_X_FROM_CANON_X (f, x),
-				  FRAME_PIXEL_Y_FROM_CANON_Y (f, y),
+				  (FRAME_PIXEL_X_FROM_CANON_X (f, x)
+				   + FRAME_INTERNAL_BORDER_WIDTH (f)),
+				  (FRAME_PIXEL_Y_FROM_CANON_Y (f, y)
+				   + FRAME_INTERNAL_BORDER_WIDTH (f)),
 				  0, 0, 0, 0);
 }