(xterm-mouse-event): Compute window co-ordinates

more carefully.

diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el
index de93456ad5a4574d1f3a13d0f6fccedf0bee55fe..5709834ab915524db3973bed3d95a995871a84a7 100644 (file)
--- a/lisp/xt-mouse.el
+++ b/lisp/xt-mouse.el
@@ -138,15 +138,17 @@
                       (t
                        (setq xterm-mouse-last type)
                        (format "down-mouse-%d" (+ 1 type))))))
-        (w (window-at x y)))
+        (w (window-at x y))
+         (ltrb (window-edges w))
+         (left (nth 0 ltrb))
+         (top (nth 1 ltrb)))
+
     (setq xterm-mouse-x x
          xterm-mouse-y y)
     (if w
-       (list mouse (posn-at-x-y x (if menu-bar-mode (- y 1) y) w))
+       (list mouse (posn-at-x-y (- x left) (- y top) w))
       (list mouse
-           (append (list nil 'menu-bar)
-                   (nthcdr 2 (posn-at-x-y
-                              x (if menu-bar-mode (- y 1) y) w)))))))
+           (append (list nil 'menu-bar) (nthcdr 2 (posn-at-x-y x y w)))))))
 
 ;;;###autoload
 (define-minor-mode xterm-mouse-mode