Re: mouse-1-click-follows-link with t-mouse

[Nick Roberts <nickrob@snap.net.nz>]

 > > When is this condition needed?  I couldn't get it to fail on a graphical
 > > display.
 > 
 > I don't recall why I made the check for input-pending-p, but
 > it looks like it is meant to catch a double click on a link - 
 > i.e. so that a double-click does not follow the link.
 > 
 > But that doesn't really work - and it also seems that the test could
 > potentially make the whole feature unstable, as other unrelated input
 > events could accidentally prevent the mouse click from following the link.
 > 
 > So I think we can just remove the test.

That would be good.  The client program mev, used by t-mouse, outputs time
information which isn't currently used in t-mouse.el.  The patch below allows
Emacs to follow the delay specified by mouse-1-click-follows-link in a
console.

-- 
Nick                                           http://www.inet.net.nz/~nickrob



*** t-mouse.el	20 Jan 2007 20:58:47 +1300	1.7
--- t-mouse.el	19 Mar 2007 23:08:57 +1200	
*************** For example, \"2\" for /dev/tty2."
*** 134,147 ****
  
  (defun t-mouse-make-event-element (x-dot-y-avec-time)
    (let* ((x-dot-y (nth 0 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))))))
  
  ;;; This fun is partly Copyright (C) 1994 Per Abrahamsen <abraham@iesd.auc.dk>
  (defun t-mouse-make-event ()
--- 134,152 ----
  
  (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))
! 	 (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 ()