# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1090705102 0
# Node ID d2661c5fec0b2809a120279d94d06232bc101aa4
# Parent  588fc06a48aebcc94322eb0ead0ffa9a2e42a71b
(Fwindow_at): Take account of FRAME_INTERNAL_BORDER_WIDTH.

diff -r 588fc06a48ae -r d2661c5fec0b src/window.c
--- a/src/window.c	Sat Jul 24 21:37:11 2004 +0000
+++ b/src/window.c	Sat Jul 24 21:38:22 2004 +0000
@@ -938,8 +938,10 @@
   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);
 }