diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/mouse.el | 5 |
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." | |||
| 1026 | (and (integerp t0) (integerp t1) | 1026 | (and (integerp t0) (integerp t1) |
| 1027 | (if (> mouse-1-click-follows-link 0) | 1027 | (if (> mouse-1-click-follows-link 0) |
| 1028 | (<= (- t1 t0) mouse-1-click-follows-link) | 1028 | (<= (- t1 t0) mouse-1-click-follows-link) |
| 1029 | (< (- t0 t1) mouse-1-click-follows-link))))) | 1029 | (< (- t0 t1) mouse-1-click-follows-link)))))))) |
| 1030 | (or (not double-click-time) | ||
| 1031 | (sit-for 0 (if (integerp double-click-time) | ||
| 1032 | double-click-time 500) t))))) | ||
| 1033 | (if (or (vectorp on-link) (stringp on-link)) | 1030 | (if (or (vectorp on-link) (stringp on-link)) |
| 1034 | (setq event (aref on-link 0)) | 1031 | (setq event (aref on-link 0)) |
| 1035 | (setcar event 'mouse-2))) | 1032 | (setcar event 'mouse-2))) |