From: YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
Date: Tue, 15 Dec 2015 08:53:44 +0000 (+0900)
Subject: Fix variable name typo in compute_tip_xy
X-Git-Tag: emacs-25.0.90~468
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=702434408433a3b04be1a03b10366b4d7191b54e;p=emacs.git

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 f9ce762f0e9..4be322182ce 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 313ac52f12a..ab6b92256bd 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