[Emacs-diffs] emacs-25 7024344: Fix variable name typo in compute_tip_xy

[YAMAMOTO Mitsuharu]

branch: emacs-25
commit 702434408433a3b04be1a03b10366b4d7191b54e
Author: YAMAMOTO Mitsuharu <address@hidden>
Commit: YAMAMOTO Mitsuharu <address@hidden>

    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.
---
 src/w32fns.c |    2 +-
 src/xfns.c   |    2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/w32fns.c b/src/w32fns.c
index f9ce762..4be3221 100644
--- 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 313ac52..ab6b922 100644
--- 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