Mercurial > emacs
comparison lisp/mouse.el @ 8092:de6f0cdfd332
(mouse-drag-secondary): Don't treat end of buffer
specially when within the window.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 30 Jun 1994 04:49:26 +0000 |
| parents | d04a39ce4f1d |
| children | 20100d7e5b0f |
comparison
equal
deleted
inserted
replaced
| 8091:f40cbe50c74f | 8092:de6f0cdfd332 |
|---|---|
| 627 ((eq (car-safe event) 'switch-frame)) | 627 ((eq (car-safe event) 'switch-frame)) |
| 628 | 628 |
| 629 ;; Are we moving within the original window? | 629 ;; Are we moving within the original window? |
| 630 ((and (eq (posn-window end) start-window) | 630 ((and (eq (posn-window end) start-window) |
| 631 (integer-or-marker-p end-point)) | 631 (integer-or-marker-p end-point)) |
| 632 (if (/= start-point end-point) | 632 (set-marker mouse-secondary-start nil) |
| 633 (set-marker mouse-secondary-start nil)) | |
| 634 (let ((range (mouse-start-end start-point end-point | 633 (let ((range (mouse-start-end start-point end-point |
| 635 click-count))) | 634 click-count))) |
| 636 (move-overlay mouse-secondary-overlay | 635 (move-overlay mouse-secondary-overlay |
| 637 (car range) (nth 1 range)))) | 636 (car range) (nth 1 range)))) |
| 638 (t | 637 (t |