diff options
Diffstat (limited to 'lisp/window.el')
| -rw-r--r-- | lisp/window.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/window.el b/lisp/window.el index e58496f6265..64cf0a72110 100644 --- a/lisp/window.el +++ b/lisp/window.el | |||
| @@ -6680,8 +6680,10 @@ is active. This function is run by `mouse-autoselect-window-timer'." | |||
| 6680 | (cond | 6680 | (cond |
| 6681 | ((or (menu-or-popup-active-p) | 6681 | ((or (menu-or-popup-active-p) |
| 6682 | (and window | 6682 | (and window |
| 6683 | (not (consp (coordinates-in-window-p | 6683 | (let ((coords (coordinates-in-window-p |
| 6684 | (cdr mouse-position) window))))) | 6684 | (cdr mouse-position) window))) |
| 6685 | (and (not (consp coords)) | ||
| 6686 | (not (memq coords '(left-margin right-margin))))))) | ||
| 6685 | ;; A menu / popup dialog is active or the mouse is not on the | 6687 | ;; A menu / popup dialog is active or the mouse is not on the |
| 6686 | ;; text region of WINDOW: Suspend autoselection temporarily. | 6688 | ;; text region of WINDOW: Suspend autoselection temporarily. |
| 6687 | (mouse-autoselect-window-start mouse-position nil t)) | 6689 | (mouse-autoselect-window-start mouse-position nil t)) |