mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(xterm-mouse-event): Set last-input-event so

Browse source 
that (list last-input-event) works as in interactive spec.
This commit is contained in:
Nick Roberts 2005-11-28 05:38:49 +00:00
parent 17550579d6
commit cb666f2dd7
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

10
lisp/xt-mouse.el
View file

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