mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-22 07:09:54 +00:00
Code Issues Releases Activity

Fix mouse clicks on a non-selected frame

Browse Source 
* lisp/mouse-drag.el (mouse-drag-drag): Skip switch-frame events
while tracking mouse.  (Bug#59785)
This commit is contained in:
Eli Zaretskii 2022-12-05 21:55:25 +02:00
parent ca0da3b83d
commit 16b9488842
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lisp/mouse-drag.el
View File

@ -275,6 +275,7 @@ To test this function, evaluate:
have-scrolled
window-last-row
col window-last-col
switch-frame-p
(scroll-col-delta 0)
;; be conservative about allowing horizontal scrolling
(col-scrolling-p (mouse-drag-should-do-col-scrolling)))
@ -286,15 +287,21 @@ To test this function, evaluate:
(setq track-mouse 'drag-dragging)
(while (progn
(setq event (read--potential-mouse-event)
end (event-end event)
row (cdr (posn-col-row end))
col (car (posn-col-row end)))
(or (mouse-movement-p event)
(eq (car-safe event) 'switch-frame)))
switch-frame-p (eq (car-safe event) 'switch-frame))
;; We want to skip switch-frame events and treat then
;; as moves over a different window. These events have
;; no position spec, so all the posn-* accessor
;; functions are likely to barf if passed such an
;; event.
(or switch-frame-p
(setq end (event-end event)
row (cdr (posn-col-row end))
col (car (posn-col-row end))))
(or (mouse-movement-p event) switch-frame-p))
;; Scroll if see if we're on the edge.
;; FIXME: should handle mouse-in-other window.
(cond
((not (eq start-window (posn-window end)))
((or switch-frame-p (not (eq start-window (posn-window end))))
t) ; wait for return to original window
((<= row 0) (mouse-drag-repeatedly-safe-scroll -1 0))
((>= row window-last-row) (mouse-drag-repeatedly-safe-scroll 1 0))