Commit be0a287b authored by Nick Roberts's avatar Nick Roberts

(t-mouse-make-event-element): Use timestamp output

from client program, mev, to compute mouse event.
parent de7dd725
......@@ -134,14 +134,19 @@ For example, \"2\" for /dev/tty2."
(defun t-mouse-make-event-element (x-dot-y-avec-time)
(let* ((x-dot-y (nth 0 x-dot-y-avec-time))
(time (nth 1 x-dot-y-avec-time))
(x (car x-dot-y))
(y (cdr x-dot-y))
(w (window-at x y))
(ltrb (window-edges w))
(left (nth 0 ltrb))
(top (nth 1 ltrb)))
(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))))))
(top (nth 1 ltrb))
(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))))))
(setcar (nthcdr 3 event) time)
event))
;;; This fun is partly Copyright (C) 1994 Per Abrahamsen <abraham@iesd.auc.dk>
(defun t-mouse-make-event ()
......
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