mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-25 19:11:56 +00:00
Code Issues Releases Activity

Make 'mouse-drag-and-drop-region' work with 'mouse-autoselect-window' non-nil

Browse Source 
* lisp/mouse.el (mouse-drag-and-drop-region): Ignore
'select-window' events to make it work with
'mouse-autoselect-window'.
This commit is contained in:
Martin Rudalics 2017-11-14 10:09:24 +01:00
parent 0491de8dad
commit ff7bd84b23
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/mouse.el
View File

@ -2380,7 +2380,9 @@ is copied instead of being cut."
;; When event was click instead of drag, skip loop
(while (progn
(setq event (read-event))
(mouse-movement-p event))
(or (mouse-movement-p event)
;; Handle `mouse-autoselect-window'.
(eq (car event) 'select-window)))
(unless value-selection ; initialization
(delete-overlay mouse-secondary-overlay)
(setq value-selection (buffer-substring start end))