procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Handle mouse leaving initial window in `mouse-set-region' (Bug#23707)

Browse source 
* lisp/mouse.el (mouse-set-region): If the mouse ends up in
another window or on the menu bar, use `window-point' of
selected window instead of `posn-point' of the event end
(Bug#23707).
This commit is contained in:
Martin Rudalics 2016-06-09 10:12:48 +02:00
parent 27fe1e459a
commit d59bcbc00b
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/mouse.el
View file

@ -566,7 +566,12 @@ command alters the kill ring or not."
(mouse-minibuffer-check click) (mouse-minibuffer-check click)
(select-window (posn-window (event-start click))) (select-window (posn-window (event-start click)))
(let ((beg (posn-point (event-start click))) (let ((beg (posn-point (event-start click)))
(end (posn-point (event-end click))) (end
(if (eq (posn-window (event-end click)) (selected-window))
(posn-point (event-end click))
;; If the mouse ends up in any other window or on the menu
;; bar, use `window-point' of selected window (Bug#23707).
(window-point)))
(click-count (event-click-count click))) (click-count (event-click-count click)))
(let ((drag-start (terminal-parameter nil 'mouse-drag-start))) (let ((drag-start (terminal-parameter nil 'mouse-drag-start)))
(when drag-start (when drag-start