diff options
author | Nick Roberts <nickrob@snap.net.nz> | 2005-11-28 05:38:49 +0000 |
---|---|---|
committer | Nick Roberts <nickrob@snap.net.nz> | 2005-11-28 05:38:49 +0000 |
commit | d5cf8ce1ee4aa91f40f671517d5bff5bad5f5e68 (patch) | |
tree | 459ae6623b2ecbf0c705253addfb52e82320fdf3 /lisp/xt-mouse.el | |
parent | 4fa2f408ce2ae963a27b2e457d2f5542610ede60 (diff) | |
download | emacs-d5cf8ce1ee4aa91f40f671517d5bff5bad5f5e68.tar.gz |
(xterm-mouse-event): Set last-input-event so
that (list last-input-event) works as in interactive spec.
Diffstat (limited to 'lisp/xt-mouse.el')
-rw-r--r-- | lisp/xt-mouse.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/xt-mouse.el b/lisp/xt-mouse.el index 80927647fbb..61f4f17ed2a 100644 --- a/lisp/xt-mouse.el +++ b/lisp/xt-mouse.el @@ -146,10 +146,12 @@ (setq xterm-mouse-x x xterm-mouse-y y) - (if w - (list mouse (posn-at-x-y (- x left) (- y top) w t)) - (list mouse - (append (list nil 'menu-bar) (nthcdr 2 (posn-at-x-y x y w t))))))) + (setq + last-input-event + (if w + (list mouse (posn-at-x-y (- x left) (- y top) w t)) + (list mouse + (append (list nil 'menu-bar) (nthcdr 2 (posn-at-x-y x y w t)))))))) ;;;###autoload (define-minor-mode xterm-mouse-mode |