Mercurial > emacs
changeset 109719:472b3dda3de7
Fix 2010-07-03 change to mouse-drag-track.
* mouse.el (mouse-drag-track): Remove accidentally-removed check
for `double' value of mouse-1-click-follows-link (Bug#6807).
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sun, 08 Aug 2010 17:57:34 -0400 |
| parents | 77fb60d4233b |
| children | eb66d5d15b09 |
| files | lisp/ChangeLog lisp/mouse.el |
| diffstat | 2 files changed, 10 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Aug 08 17:15:44 2010 -0400 +++ b/lisp/ChangeLog Sun Aug 08 17:57:34 2010 -0400 @@ -1,3 +1,8 @@ +2010-08-08 Chong Yidong <cyd@stupidchicken.com> + + * mouse.el (mouse-drag-track): Remove accidentally-removed check + for `double' value of mouse-1-click-follows-link (Bug#6807). + 2010-08-08 Johan Bockgård <bojohan@gnu.org> * replace.el (replace-highlight): Bind isearch-forward and
--- a/lisp/mouse.el Sun Aug 08 17:15:44 2010 -0400 +++ b/lisp/mouse.el Sun Aug 08 17:57:34 2010 -0400 @@ -929,6 +929,9 @@ ;; intangible text. (mouse-on-link-p start-posn))) (click-count (1- (event-click-count start-event))) + (remap-double-click (and on-link + (eq mouse-1-click-follows-link 'double) + (= click-count 1))) ;; Suppress automatic hscrolling, because that is a nuisance ;; when setting point near the right fringe (but see below). (automatic-hscrolling-saved automatic-hscrolling) @@ -941,6 +944,8 @@ (if (< (point) start-point) (goto-char start-point)) (setq start-point (point)) + (if remap-double-click + (setq click-count 0)) ;; Activate the region, using `mouse-start-end' to determine where ;; to put point and mark (e.g., double-click will select a word).