From fc7ed6dd0681bb90e9f51d73b6e09508e744cace Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Tue, 3 Apr 2007 21:16:40 +0000 Subject: [PATCH] (t-mouse-make-event-element): Don't use the left edge of the window if we're outside it e.g menu-bar. --- lisp/t-mouse.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/lisp/t-mouse.el b/lisp/t-mouse.el index c8a7e9b6536..eca2ce2b9fe 100644 --- a/lisp/t-mouse.el +++ b/lisp/t-mouse.el @@ -144,7 +144,7 @@ For example, \"2\" for /dev/tty2." (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)) -- 2.39.2