[Emacs-diffs] trunk r113920: In mouse-autoselect-window-select do autoselect when mouse pointer is on margin.

[Martin Rudalics]

------------------------------------------------------------
revno: 113920
revision-id: address@hidden
parent: address@hidden
committer: martin rudalics <address@hidden>
branch nick: trunk
timestamp: Fri 2013-08-16 11:44:32 +0200
message:
  In mouse-autoselect-window-select do autoselect when mouse pointer is on 
margin.
  
  * window.el (mouse-autoselect-window-select): Do autoselect when
  mouse pointer is on margin.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/window.el                 window.el-20091113204419-o5vbwnq5f7feedwu-94

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-08-16 08:27:49 +0000
+++ b/lisp/ChangeLog    2013-08-16 09:44:32 +0000
@@ -1,3 +1,8 @@
+2013-08-16  Martin Rudalics  <address@hidden>
+
+       * window.el (mouse-autoselect-window-select): Do autoselect when
+       mouse pointer is on margin.
+
 2013-08-16  William Parsons  <address@hidden>  (tiny change)
 
        * net/ange-ftp.el (ange-ftp-skip-msgs): Add 500 EPSV.  (Bug#1972)

=== modified file 'lisp/window.el'
--- a/lisp/window.el    2013-08-14 09:14:32 +0000
+++ b/lisp/window.el    2013-08-16 09:44:32 +0000
@@ -6680,8 +6680,10 @@
      (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))