Commit aa718a1f authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(mouse-extend): Handle case where posn-window is a frame.

parent 09a1077c
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment