From ad15832ecb8ab94d3963dca3586399e2f66c9726 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Tue, 3 Apr 2007 21:16:17 +0000 Subject: (xterm-mouse-event): Don't use the left edge of the window if we're outside it e.g menu-bar. --- lisp/xt-mouse.el | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'lisp/xt-mouse.el') diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el index 963ed0238ed..8ae79903d51 100644 --- a/lisp/xt-mouse.el +++ b/lisp/xt-mouse.el @@ -49,7 +49,8 @@ ;; Mouse events symbols must have an 'event-kind property with ;; the value 'mouse-click. -(dolist (event-type '(mouse-1 mouse-2 mouse-3)) +(dolist (event-type '(mouse-1 mouse-2 mouse-3 + M-down-mouse-1 M-down-mouse-2 M-down-mouse-3)) (put event-type 'event-kind 'mouse-click)) (defun xterm-mouse-translate (event) @@ -140,6 +141,11 @@ ;; a release-event only, no down-event. (cond ((>= type 64) (format "mouse-%d" (- type 60))) + ((memq type '(8 9 10)) + (setq xterm-mouse-last type) + (format "M-down-mouse-%d" (- type 7))) + ((= type 11) + (format "mouse-%d" (- xterm-mouse-last 7))) ((= type 3) (format "mouse-%d" (+ 1 xterm-mouse-last))) (t @@ -158,7 +164,7 @@ (let ((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) timestamp) event))))) -- cgit v1.2.1