(mouse-drag-region): Delete redundant switch-frame clause.

(mouse-drag-secondary): Likewise.

diff --git a/lisp/mouse.el b/lisp/mouse.el
index c43b25457c9528b541dbb1e79efb1f7f1b93eede..ad79560a956ce3a654dc6c0b1de771e2a5862f69 100644 (file)
--- 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))