Mercurial > emacs
comparison lisp/mouse.el @ 8255:120d62d58330
(mouse-drag-region): Delete redundant switch-frame clause.
(mouse-drag-secondary): Likewise.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 15 Jul 1994 21:32:01 +0000 |
| parents | 1cc48bdd0c6b |
| children | 3ff0307b8c0d |
comparison
equal
deleted
inserted
replaced
| 8254:694c4686b446 | 8255:120d62d58330 |
|---|---|
| 226 nil | 226 nil |
| 227 (setq end (event-end event) | 227 (setq end (event-end event) |
| 228 end-point (posn-point end)) | 228 end-point (posn-point end)) |
| 229 | 229 |
| 230 (cond | 230 (cond |
| 231 | |
| 232 ;; Ignore switch-frame events. | |
| 233 ((eq (car-safe event) 'switch-frame)) | |
| 234 | |
| 235 ;; Are we moving within the original window? | 231 ;; Are we moving within the original window? |
| 236 ((and (eq (posn-window end) start-window) | 232 ((and (eq (posn-window end) start-window) |
| 237 (integer-or-marker-p end-point)) | 233 (integer-or-marker-p end-point)) |
| 238 (goto-char end-point) | 234 (goto-char end-point) |
| 239 (let ((range (mouse-start-end start-point (point) click-count))) | 235 (let ((range (mouse-start-end start-point (point) click-count))) |
| 620 (if (eq (car-safe event) 'switch-frame) | 616 (if (eq (car-safe event) 'switch-frame) |
| 621 nil | 617 nil |
| 622 (setq end (event-end event) | 618 (setq end (event-end event) |
| 623 end-point (posn-point end)) | 619 end-point (posn-point end)) |
| 624 (cond | 620 (cond |
| 625 | |
| 626 ;; Ignore switch-frame events. | |
| 627 ((eq (car-safe event) 'switch-frame)) | |
| 628 | |
| 629 ;; Are we moving within the original window? | 621 ;; Are we moving within the original window? |
| 630 ((and (eq (posn-window end) start-window) | 622 ((and (eq (posn-window end) start-window) |
| 631 (integer-or-marker-p end-point)) | 623 (integer-or-marker-p end-point)) |
| 632 (let ((range (mouse-start-end start-point end-point | 624 (let ((range (mouse-start-end start-point end-point |
| 633 click-count))) | 625 click-count))) |