From aa718a1fab3ab7e9b658a19179980d13a48e2cd9 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Fri, 22 Apr 1994 20:19:41 +0000 Subject: [PATCH] (mouse-extend): Handle case where posn-window is a frame. --- lisp/mouse-sel.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lisp/mouse-sel.el b/lisp/mouse-sel.el index f079c62f978..861a5ed1759 100644 --- a/lisp/mouse-sel.el +++ b/lisp/mouse-sel.el @@ -310,7 +310,10 @@ This should be bound to a down-mouse event." ;; Ignore any movement outside the frame ((eq (car-safe event) 'switch-frame) nil) ((and (posn-window end) - (not (eq (window-frame (posn-window end)) + (not (eq (let ((posn-w (posn-window end))) + (if (windowp posn-w) + (window-frame posn-w) + posn-w)) (window-frame orig-window)))) nil) ;; Different window, same frame -- 2.39.5