From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 8 Jul 1997 09:47:23 +0000 (+0000)
Subject: (mouse-show-mark): Handle switch-frame events in the loop.
X-Git-Tag: emacs-20.1~1271
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=4e2aade12476c95329a65e32a3f85c6b5b3fea8f;p=emacs.git

(mouse-show-mark): Handle switch-frame events in the loop.
---

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 41b543e3892..07b525546cf 100644
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -759,12 +759,14 @@ If DIR is positive skip forward; if negative, skip backward."
 				  (throw 'mouse-show-mark t)))))
 	  (move-overlay mouse-drag-overlay (point) (mark t))
 	  (catch 'mouse-show-mark
-	    ;; In this loop, read and execute scroll bar events.
-	    ;; Otherwise, if we 
+	    ;; In this loop, execute scroll bar and switch-frame events.
+	    ;; Also ignore down-events that are undefined.
 	    (while (progn (setq event (read-event))
 			  (setq events (append events (list event)))
 			  (setq key (apply 'vector events))
 			  (or (and (consp event)
+				   (eq (car event) 'switch-frame))
+			      (and (consp event)
 				   (eq (posn-point (event-end event))
 				       'vertical-scroll-bar))
 			      (and (memq 'down (event-modifiers event))
@@ -772,8 +774,9 @@ If DIR is positive skip forward; if negative, skip backward."
 				   (not (mouse-undouble-last-event events))
 				   (not (member key mouse-region-delete-keys)))))
 	      (and (consp event)
-		   (eq (posn-point (event-end event))
-		       'vertical-scroll-bar)
+		   (or (eq (car event) 'switch-frame)
+		       (eq (posn-point (event-end event))
+			   'vertical-scroll-bar))
 		   (let ((keys (vector 'vertical-scroll-bar event)))
 		     (and (key-binding keys)
 			  (progn