From be0a287b7695ec47e436933269772eb3625e68b1 Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Mon, 19 Mar 2007 20:07:45 +0000 Subject: (t-mouse-make-event-element): Use timestamp output from client program, mev, to compute mouse event. --- lisp/t-mouse.el | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) diff --git a/lisp/t-mouse.el b/lisp/t-mouse.el index 96e545aa11c..c8a7e9b6536 100644 --- a/lisp/t-mouse.el +++ b/lisp/t-mouse.el @@ -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 (defun t-mouse-make-event () -- cgit v1.2.3