Commit cb666f2d authored by Nick Roberts's avatar Nick Roberts
Browse files

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

that (list last-input-event) works as in interactive spec.
parent 17550579
...@@ -146,10 +146,12 @@ ...@@ -146,10 +146,12 @@
(setq xterm-mouse-x x (setq xterm-mouse-x x
xterm-mouse-y y) xterm-mouse-y y)
(if w (setq
(list mouse (posn-at-x-y (- x left) (- y top) w t)) last-input-event
(list mouse (if w
(append (list nil 'menu-bar) (nthcdr 2 (posn-at-x-y x y w t))))))) (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 ;;;###autoload
(define-minor-mode xterm-mouse-mode (define-minor-mode xterm-mouse-mode
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment