Mercurial > emacs
comparison lisp/mouse.el @ 76575:87812a667b64
(mouse-drag-track): Remove spurious input-pending-p test. Suggested
by Johan Bockgrd.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Mon, 19 Mar 2007 15:52:04 +0000 |
| parents | 91a6d7f7e1a7 |
| children | e3994020ab84 c0409ee15cee |
comparison
equal
deleted
inserted
replaced
| 76574:5d06fa7b3e62 | 76575:87812a667b64 |
|---|---|
| 1050 (or remap-double-click | 1050 (or remap-double-click |
| 1051 (and | 1051 (and |
| 1052 (not (eq mouse-1-click-follows-link 'double)) | 1052 (not (eq mouse-1-click-follows-link 'double)) |
| 1053 (= click-count 0) | 1053 (= click-count 0) |
| 1054 (= (event-click-count event) 1) | 1054 (= (event-click-count event) 1) |
| 1055 (not (input-pending-p)) | |
| 1056 (or (not (integerp mouse-1-click-follows-link)) | 1055 (or (not (integerp mouse-1-click-follows-link)) |
| 1057 (let ((t0 (posn-timestamp (event-start start-event))) | 1056 (let ((t0 (posn-timestamp (event-start start-event))) |
| 1058 (t1 (posn-timestamp (event-end event)))) | 1057 (t1 (posn-timestamp (event-end event)))) |
| 1059 (and (integerp t0) (integerp t1) | 1058 (and (integerp t0) (integerp t1) |
| 1060 (if (> mouse-1-click-follows-link 0) | 1059 (if (> mouse-1-click-follows-link 0) |