1026 |
(and (integerp t0) (integerp t1) |
(and (integerp t0) (integerp t1) |
1027 |
(if (> mouse-1-click-follows-link 0) |
(if (> mouse-1-click-follows-link 0) |
1028 |
(<= (- t1 t0) mouse-1-click-follows-link) |
(<= (- t1 t0) mouse-1-click-follows-link) |
1029 |
(< (- t0 t1) 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))))) |
|
1030 |
(if (or (vectorp on-link) (stringp on-link)) |
(if (or (vectorp on-link) (stringp on-link)) |
1031 |
(setq event (aref on-link 0)) |
(setq event (aref on-link 0)) |
1032 |
(setcar event 'mouse-2))) |
(setcar event 'mouse-2))) |