# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 738439102 0
# Node ID 1d3a6f78266f654287a3f2304e02b5fa123ddea0
# Parent  05c3ef28bb6ba622e490b0a3597adf3379e187fb
(make_lispy_event): Fix off-by-1 error with hpos in menu bar.

diff -r 05c3ef28bb6b -r 1d3a6f78266f src/keyboard.c
--- a/src/keyboard.c	Wed May 26 17:50:23 1993 +0000
+++ b/src/keyboard.c	Wed May 26 17:58:22 1993 +0000
@@ -2221,8 +2221,8 @@
 		    Lisp_Object pos, string;
 		    pos = Fcdr (Fcdr (Fcar (items)));
 		    string = Fcar (Fcdr (Fcar (items)));
-		    if (XINT (event->x) > XINT (pos)
-			&& XINT (event->x) <= XINT (pos) + XSTRING (string)->size)
+		    if (XINT (event->x) >= XINT (pos)
+			&& XINT (event->x) < XINT (pos) + XSTRING (string)->size)
 		      break;
 		  }
 		position