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