(mouse-drag-region-1): Don't try to catch a

double-click when doing follow-link (it's overridden anyway).

1 files changed, 1 insertions, 4 deletions

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