Commit 498eff1d authored by Kim F. Storm's avatar Kim F. Storm
Browse files

(Fsun_menu_internal): Adapt to per-window fringes and scroll-bars.

parent fdbf2e9b
......@@ -454,8 +454,10 @@ as a menu label. */)
CHECK_GFX (Qnil);
xpos = CtoSX (WINDOW_LEFT_MARGIN (XWINDOW (window)) + XINT(X_Position));
ypos = CtoSY (XWINDOW(window)->top + XINT(Y_Position));
xpos = CtoSX (WINDOW_LEFT_EDGE_COL (XWINDOW (window))
+ WINDOW_LEFT_SCROLL_BAR_COLS (XWINDOW (window))
+ XINT(X_Position));
ypos = CtoSY (WINDOW_TOP_EDGE_LINE (XWINDOW(window)) + XINT(Y_Position));
#ifdef Menu_Base_Kludge
{static Lisp_Object symbol[2];
symbol[0] = Fintern (sm_kludge_string, Qnil);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment