Mercurial > emacs
changeset 13307:4bc9015f709e
(mouse-drag-region): Set end-of-range after calling mouse-scroll-subr.
(mouse-set-region): Don't do the sit-for on a pc frame.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 27 Oct 1995 17:48:32 +0000 |
| parents | 77d8e407592e |
| children | 99457b67e20c |
| files | lisp/mouse.el |
| diffstat | 1 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/mouse.el Thu Oct 26 22:38:23 1995 +0000 +++ b/lisp/mouse.el Fri Oct 27 17:48:32 1995 +0000 @@ -401,6 +401,7 @@ ;; On X, we highlight while dragging, thus once again no need to bounce. (or transient-mark-mode (eq (framep (selected-frame)) 'x) + (eq (framep (selected-frame)) 'pc) (sit-for 1)) (push-mark) (set-mark (point)) @@ -543,10 +544,14 @@ ((null mouse-row)) ((< mouse-row top) (mouse-scroll-subr start-window (- mouse-row top) - mouse-drag-overlay start-point)) + mouse-drag-overlay start-point) + ;; Without this, point tends to jump back to the starting + ;; position where the mouse button was pressed down. + (setq end-of-range (overlay-start mouse-drag-overlay))) ((>= mouse-row bottom) (mouse-scroll-subr start-window (1+ (- mouse-row bottom)) - mouse-drag-overlay start-point))))))))) + mouse-drag-overlay start-point) + (setq end-of-range (overlay-end mouse-drag-overlay)))))))))) (if (consp event) (let ((fun (key-binding (vector (car event))))) ;; Run the binding of the terminating up-event, if possible.