From 3ad0e7cefd518395da380947f7235d19800363b4 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 15 Jul 1994 21:32:01 +0000 Subject: [PATCH] (mouse-drag-region): Delete redundant switch-frame clause. (mouse-drag-secondary): Likewise. --- lisp/mouse.el | 8 -------- 1 file changed, 8 deletions(-) diff --git a/lisp/mouse.el b/lisp/mouse.el index c43b25457c9..ad79560a956 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -228,10 +228,6 @@ release the mouse button. Otherwise, it does not." end-point (posn-point end)) (cond - - ;; Ignore switch-frame events. - ((eq (car-safe event) 'switch-frame)) - ;; Are we moving within the original window? ((and (eq (posn-window end) start-window) (integer-or-marker-p end-point)) @@ -622,10 +618,6 @@ This must be bound to a button-down mouse event." (setq end (event-end event) end-point (posn-point end)) (cond - - ;; Ignore switch-frame events. - ((eq (car-safe event) 'switch-frame)) - ;; Are we moving within the original window? ((and (eq (posn-window end) start-window) (integer-or-marker-p end-point)) -- 2.39.5