Mercurial > emacs
comparison lisp/mouse.el @ 23619:0813c9bb52c4
(mouse-drag-region): Fix typo.
| author | Andreas Schwab <schwab@suse.de> |
|---|---|
| date | Tue, 03 Nov 1998 10:25:56 +0000 |
| parents | 4c8718a0fb85 |
| children | cb2244476b40 |
comparison
equal
deleted
inserted
replaced
| 23618:d71e01e81cc7 | 23619:0813c9bb52c4 |
|---|---|
| 583 ;; Without this, point tends to jump back to the starting | 583 ;; Without this, point tends to jump back to the starting |
| 584 ;; position where the mouse button was pressed down. | 584 ;; position where the mouse button was pressed down. |
| 585 (setq end-of-range (overlay-start mouse-drag-overlay))) | 585 (setq end-of-range (overlay-start mouse-drag-overlay))) |
| 586 ((>= mouse-row bottom) | 586 ((>= mouse-row bottom) |
| 587 (mouse-scroll-subr start-window (1+ (- mouse-row bottom)) | 587 (mouse-scroll-subr start-window (1+ (- mouse-row bottom)) |
| 588 a mouse-drag-overlay start-point) | 588 mouse-drag-overlay start-point) |
| 589 (setq end-of-range (overlay-end mouse-drag-overlay)))))))))) | 589 (setq end-of-range (overlay-end mouse-drag-overlay)))))))))) |
| 590 ;; In case we did not get a mouse-motion event | 590 ;; In case we did not get a mouse-motion event |
| 591 ;; for the final move of the mouse before a drag event | 591 ;; for the final move of the mouse before a drag event |
| 592 ;; pretend that we did get one. | 592 ;; pretend that we did get one. |
| 593 (when (and (memq 'drag (event-modifiers (car-safe event))) | 593 (when (and (memq 'drag (event-modifiers (car-safe event))) |