procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source 
more carefully.
This commit is contained in:
Nick Roberts 2005-01-14 07:36:50 +00:00
parent 5ca75c83ef
commit fcd9df1bf0
1 changed files with 7 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
lisp/xt-mouse.el
View file

@ -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