(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 5390abacb5ceb9191f6f61b38005f19cc3b1a496..90f2b3ba87918665234bd8189045a68c8c66c805 100644 (file)
--- 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)))