Mercurial > emacs
diff lisp/mouse.el @ 10554:f5f5c52de2e4
(mouse-drag-region): Modify previous change--don't run the ordinary binding
in the case of a multiple click.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 26 Jan 1995 03:18:45 +0000 |
| parents | 3092c83a8a9d |
| children | fda9e00240b0 |
line wrap: on
line diff
--- a/lisp/mouse.el Thu Jan 26 02:37:30 1995 +0000 +++ b/lisp/mouse.el Thu Jan 26 03:18:45 1995 +0000 @@ -414,7 +414,10 @@ mouse-drag-overlay start-point))))))))) (if (consp event) (let ((fun (key-binding (vector (car event))))) - (if (fboundp fun) + ;; Run the binding of the terminating up-event, if possible. + ;; In the case of a multiple click, it gives the wrong results, + ;; because it would fail to set up a region. + (if (and (= (mod mouse-selection-click-count 3) 0) (fboundp fun)) (funcall fun event) (if (not (= (overlay-start mouse-drag-overlay) (overlay-end mouse-drag-overlay)))