Commit ff7bd84b authored by Martin Rudalics's avatar Martin Rudalics
Browse files

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

* lisp/mouse.el (mouse-drag-and-drop-region): Ignore
'select-window' events to make it work with
'mouse-autoselect-window'.
parent 0491de8d
...@@ -2380,7 +2380,9 @@ is copied instead of being cut." ...@@ -2380,7 +2380,9 @@ is copied instead of being cut."
;; When event was click instead of drag, skip loop ;; When event was click instead of drag, skip loop
(while (progn (while (progn
(setq event (read-event)) (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 (unless value-selection ; initialization
(delete-overlay mouse-secondary-overlay) (delete-overlay mouse-secondary-overlay)
(setq value-selection (buffer-substring start end)) (setq value-selection (buffer-substring start end))
......
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