mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

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

Browse Source 
from client program, mev, to compute mouse event.
This commit is contained in:
Nick Roberts 2007-03-19 20:07:45 +00:00
parent de7dd7251e
commit be0a287b76
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/t-mouse.el
View File

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