]> git.eshelyaron.com Git - emacs.git/commitdiff
In mouse-autoselect-window-select do autoselect when mouse pointer is on margin.
authorMartin Rudalics <rudalics@gmx.at>
Fri, 16 Aug 2013 09:44:32 +0000 (11:44 +0200)
committerMartin Rudalics <rudalics@gmx.at>
Fri, 16 Aug 2013 09:44:32 +0000 (11:44 +0200)
* window.el (mouse-autoselect-window-select): Do autoselect when
mouse pointer is on margin.

lisp/ChangeLog
lisp/window.el

index 5edb462adb516a29b096ad64e8915907384be09b..11b465ba99104af8365426b61e0729faa8bfb367 100644 (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)
index e58496f6265e4092eaba4755acd49d5a37602ac3..64cf0a72110cbedcff914637b7b0cbb6c9f83c6f 100644 (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))