diff options
| author | Nick Roberts <nickrob@snap.net.nz> | 2007-04-03 21:16:40 +0000 |
|---|---|---|
| committer | Nick Roberts <nickrob@snap.net.nz> | 2007-04-03 21:16:40 +0000 |
| commit | fc7ed6dd0681bb90e9f51d73b6e09508e744cace (patch) | |
| tree | 24da67bd6c98f74a41d353467be9985ff13eeb54 | |
| parent | ad15832ecb8ab94d3963dca3586399e2f66c9726 (diff) | |
| download | emacs-fc7ed6dd0681bb90e9f51d73b6e09508e744cace.tar.gz | |
(t-mouse-make-event-element): Don't use the left edge
of the window if we're outside it e.g menu-bar.
| -rw-r--r-- | lisp/t-mouse.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/t-mouse.el b/lisp/t-mouse.el index c8a7e9b6536..eca2ce2b9fe 100644 --- a/lisp/t-mouse.el +++ b/lisp/t-mouse.el @@ -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) event)) |