changeset 76925:f6250d52a57e

(t-mouse-make-event-element): Don't use the left edge of the window if we're outside it e.g menu-bar.
author Nick Roberts <nickrob@snap.net.nz>
date Tue, 03 Apr 2007 21:16:40 +0000
parents 44b6d7a1ef55
children d13721cc3255
files lisp/t-mouse.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))