--- a/lisp/modeline.el	Mon Aug 13 10:21:19 2007 +0200
+++ b/lisp/modeline.el	Mon Aug 13 10:22:03 2007 +0200
@@ -74,6 +74,8 @@
 	  (start-event-frame (event-frame event))
 	  (start-event-window (event-window event))
 	  (start-nwindows (count-windows t))
+	  (hscroll-offset
+	   (- (modeline-hscroll (event-window event)) (event-x event)))
 	  (last-timestamp 0)
 	  default-line-height
 	  modeline-height
@@ -141,6 +143,8 @@
 		  drag-modeline-event-lag)
 	       nil)
 	      (t
+	       (set-modeline-hscroll (event-window event)
+				     (+ hscroll-offset (event-x event)))
 	       (setq last-timestamp (event-timestamp event)
 		     y (event-y-pixel event)
 		     edges (window-pixel-edges start-event-window)