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 |