mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-13 16:38:14 +00:00
Code Issues Releases Activity

(xterm-mouse-event): Don't use the left edge of the

Browse Source 
window if we're outside it e.g menu-bar.
This commit is contained in:
Nick Roberts 2007-04-03 21:16:17 +00:00
parent 13cb58294e
commit ad15832ecb
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/xt-mouse.el
View File

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