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))) |