Mercurial > emacs
changeset 67176:c1b362058986
(xterm-mouse-event): Set last-input-event so
that (list last-input-event) works as in interactive spec.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Mon, 28 Nov 2005 05:38:49 +0000 |
| parents | f056fde1f361 |
| children | e59c64acce36 |
| files | lisp/xt-mouse.el |
| diffstat | 1 files changed, 6 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/xt-mouse.el Mon Nov 28 05:36:04 2005 +0000 +++ b/lisp/xt-mouse.el Mon Nov 28 05:38:49 2005 +0000 @@ -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