Fix variable name typo in compute_tip_xy

* src/w32fns.c (compute_tip_xy):
* src/xfns.c (compute_tip_xy): Modify *root_x instead of *root_y
when `right' is integer.

diff --git a/src/w32fns.c b/src/w32fns.c
index f9ce762f0e9f3821361dde1687665ab5a0aeffa3..4be322182ce93ea69e2321aaf6b6cc5efac3f4a4 100644 (file)
--- a/src/w32fns.c
+++ b/src/w32fns.c
@@ -6377,7 +6377,7 @@ compute_tip_xy (struct frame *f,
   if (INTEGERP (left))
     *root_x = XINT (left);
   else if (INTEGERP (right))
-    *root_y = XINT (right) - width;
+    *root_x = XINT (right) - width;
   else if (*root_x + XINT (dx) <= min_x)
     *root_x = 0; /* Can happen for negative dx */
   else if (*root_x + XINT (dx) + width <= max_x)

diff --git a/src/xfns.c b/src/xfns.c
index 313ac52f12ae574b5692386479d48db04bd47140..ab6b92256bd49d6858fae3e3db0d2721b3739e84 100644 (file)
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -5719,7 +5719,7 @@ compute_tip_xy (struct frame *f, Lisp_Object parms, Lisp_Object dx, Lisp_Object
   if (INTEGERP (left))
     *root_x = XINT (left);
   else if (INTEGERP (right))
-    *root_y = XINT (right) - width;
+    *root_x = XINT (right) - width;
   else if (*root_x + XINT (dx) <= 0)
     *root_x = 0; /* Can happen for negative dx */
   else if (*root_x + XINT (dx) + width