# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1175635000 0
# Node ID f6250d52a57e310aeacf3b0784a4124dfe1b51b8
# Parent  44b6d7a1ef5563ec90611e7d9f50d475b7b50723
(t-mouse-make-event-element): Don't use the left edge
of the window if we're outside it e.g menu-bar.

diff -r 44b6d7a1ef55 -r f6250d52a57e lisp/t-mouse.el
--- a/lisp/t-mouse.el	Tue Apr 03 21:16:17 2007 +0000
+++ b/lisp/t-mouse.el	Tue Apr 03 21:16:40 2007 +0000
@@ -144,7 +144,7 @@
 	 (event (if w
 		    (posn-at-x-y (- x left) (- y top) w t)
 		  (append (list nil 'menu-bar)
-			  (nthcdr 2 (posn-at-x-y x y w t))))))
+			  (nthcdr 2 (posn-at-x-y x y))))))
     (setcar (nthcdr 3 event) time)
     event))