Commit fc7ed6dd authored by Nick Roberts's avatar Nick Roberts
Browse files

(t-mouse-make-event-element): Don't use the left edge

of the window if we're outside it e.g menu-bar.
parent ad15832e
......@@ -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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment