# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1129044631 0
# Node ID 2770ea5d8a68ff6dab8206431a17e6bb377641ab
# Parent  337b118104a50e3232aeded279bba4e0ed6f51e3
(mouse-drag-region-1): Don't try to catch a
double-click when doing follow-link (it's overridden anyway).

diff -r 337b118104a5 -r 2770ea5d8a68 lisp/mouse.el
--- a/lisp/mouse.el	Tue Oct 11 15:18:36 2005 +0000
+++ b/lisp/mouse.el	Tue Oct 11 15:30:31 2005 +0000
@@ -1026,10 +1026,7 @@
                                     (and (integerp t0) (integerp t1)
                                          (if (> mouse-1-click-follows-link 0)
                                              (<= (- t1 t0) mouse-1-click-follows-link)
-                                           (< (- t0 t1) mouse-1-click-follows-link)))))
-                              (or (not double-click-time)
-                                  (sit-for 0 (if (integerp double-click-time)
-                                                 double-click-time 500) t)))))
+                                           (< (- t0 t1) mouse-1-click-follows-link))))))))
 		    (if (or (vectorp on-link) (stringp on-link))
 			(setq event (aref on-link 0))
 		      (setcar event 'mouse-2)))