# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 774307921 0
# Node ID 120d62d58330292283a2fc575cd2caca790a6dc5
# Parent  694c4686b446db4ff304e0e472f645b70468125f
(mouse-drag-region): Delete redundant switch-frame clause.
(mouse-drag-secondary): Likewise.

diff -r 694c4686b446 -r 120d62d58330 lisp/mouse.el
--- a/lisp/mouse.el	Fri Jul 15 07:48:35 1994 +0000
+++ b/lisp/mouse.el	Fri Jul 15 21:32:01 1994 +0000
@@ -228,10 +228,6 @@
 		  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 @@
 	      (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))