From: Chong Yidong <cyd@stupidchicken.com>
Date: Tue, 11 Oct 2005 15:30:31 +0000 (+0000)
Subject: (mouse-drag-region-1): Don't try to catch a
X-Git-Tag: emacs-pretest-22.0.90~6664
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=592b0a3b6daee2a5ffc51a8530f441b974cb9f6f;p=emacs.git

(mouse-drag-region-1): Don't try to catch a
double-click when doing follow-link (it's overridden anyway).
---

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 5390abacb5c..90f2b3ba879 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -1026,10 +1026,7 @@ at the same position."
                                     (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)))