mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-05 15:11:30 -08:00
Code Issues Projects Releases Wiki Activity

In mouse-autoselect-window-select do autoselect when mouse pointer is on margin.

Browse source 
* window.el (mouse-autoselect-window-select): Do autoselect when
mouse pointer is on margin.
This commit is contained in:
Martin Rudalics 2013-08-16 11:44:32 +02:00
parent 907699465f
commit 3dfc5cd613
2 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2013-08-16 Martin Rudalics <rudalics@gmx.at>
* window.el (mouse-autoselect-window-select): Do autoselect when
mouse pointer is on margin.
2013-08-16 William Parsons <wbparsons@alum.mit.edu> (tiny change)
* net/ange-ftp.el (ange-ftp-skip-msgs): Add 500 EPSV. (Bug#1972)

6
lisp/window.el
View file

@ -6680,8 +6680,10 @@ is active. This function is run by `mouse-autoselect-window-timer'."
(cond
((or (menu-or-popup-active-p)
(and window
(not (consp (coordinates-in-window-p
(cdr mouse-position) window)))))
(let ((coords (coordinates-in-window-p
(cdr mouse-position) window)))
(and (not (consp coords))
(not (memq coords '(left-margin right-margin)))))))
;; A menu / popup dialog is active or the mouse is not on the
;; text region of WINDOW: Suspend autoselection temporarily.
(mouse-autoselect-window-start mouse-position nil t))