diff options
| author | martin rudalics <rudalics@gmx.at> | 2021-11-20 10:56:13 +0100 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2021-11-20 12:05:36 +0200 |
| commit | c22c988b1f3d9ae5d3f504100bf8e1cb79fab334 (patch) | |
| tree | 0ca57dc84fd35de52e0cce83a8b233e79bee6b5d /lisp/mouse-drag.el | |
| parent | 354c834fba5806ba873b50bf900c42dce5d9da90 (diff) | |
| download | emacs-c22c988b1f3d9ae5d3f504100bf8e1cb79fab334.tar.gz emacs-c22c988b1f3d9ae5d3f504100bf8e1cb79fab334.tar.bz2 emacs-c22c988b1f3d9ae5d3f504100bf8e1cb79fab334.zip | |
Fix mouse events on tab bar or tool bar when 'track-mouse' is t
* lisp/mouse.el (mouse-drag-track):
* lisp/mouse-drag.el (mouse-drag-drag): Set 'track-mouse' to some
value neither t nor nil.
* src/keyboard.c (make_lispy_position): If track_mouse is Qt,
report event on tool or tab bar (Bug#51794).
Diffstat (limited to 'lisp/mouse-drag.el')
| -rw-r--r-- | lisp/mouse-drag.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/mouse-drag.el b/lisp/mouse-drag.el index ecfb359b36f..0cdba6b4d01 100644 --- a/lisp/mouse-drag.el +++ b/lisp/mouse-drag.el @@ -282,6 +282,8 @@ To test this function, evaluate: (setq window-last-row (- (window-height) 2) window-last-col (- (window-width) 2)) (track-mouse + ;; Set 'track-mouse' to something neither nil nor t (Bug#51794). + (setq track-mouse 'drag-dragging) (while (progn (setq event (read--potential-mouse-event) end (event-end event) |