(map_char_table): New arg SUBTABLE. Callers changed.

[gnu-emacs] / src / sunfns.c

diff --git a/src/sunfns.c b/src/sunfns.c
index e625a471feda4306775726435490537f7de8605b..6bfa479321d85fd461ff86133978166e2a15b6f9 100644 (file)
--- a/src/sunfns.c
+++ b/src/sunfns.c
@@ -453,7 +453,7 @@ as a menu label.")
 
   CHECK_GFX (Qnil);
 
-  xpos = CtoSX (XWINDOW(window)->left + XINT(X_Position));
+  xpos = CtoSX (WINDOW_LEFT_MARGIN (XWINDOW (window)) + XINT(X_Position));
   ypos = CtoSY (XWINDOW(window)->top  + XINT(Y_Position));
 #ifdef  Menu_Base_Kludge
   {static Lisp_Object symbol[2];