From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 21 Sep 1996 01:11:31 +0000 (+0000)
Subject: (make_lispy_event): When converting from pixel to glyph coordinates,
X-Git-Tag: emacs-20.1~3691
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c8738c33c586a3b99adb3184bf2879c8d5fa325a;p=emacs.git

(make_lispy_event): When converting from pixel to glyph coordinates,
offset by WINDOW_LEFT_MARGIN; this is needed for left-side scrollbars.

(syms_of_keyboard): Initialize and staticpro
internal_last_event_frame and read_key_sequence_cmd.
---

diff --git a/src/keyboard.c b/src/keyboard.c
index a145406e375..e55d1e06650 100644
--- a/src/keyboard.c
+++ b/src/keyboard.c
@@ -3764,7 +3764,7 @@ make_lispy_event (event)
 	    else
 	      {
 		int pixcolumn, pixrow;
-		column -= XINT (XWINDOW (window)->left);
+		column -= WINDOW_LEFT_MARGIN (XWINDOW (window));
 		row -= XINT (XWINDOW (window)->top);
 		glyph_to_pixel_coords (f, column, row, &pixcolumn, &pixrow);
 		XSETINT (event->x, pixcolumn);
@@ -4027,7 +4027,7 @@ make_lispy_movement (frame, bar_window, part, x, y, time)
       if (WINDOWP (window))
 	{
 	  int pixcolumn, pixrow;
-	  column -= XINT (XWINDOW (window)->left);
+	  column -= WINDOW_LEFT_MARGIN (XWINDOW (window));
 	  row -= XINT (XWINDOW (window)->top);
 	  glyph_to_pixel_coords (frame, column, row, &pixcolumn, &pixrow);
 	  XSETINT (x, pixcolumn);