]> git.eshelyaron.com Git - emacs.git/commit
Make drag-and-drop wheel movement work locally too on X
authorPo Lu <luangruo@yahoo.com>
Tue, 19 Jul 2022 01:33:09 +0000 (09:33 +0800)
committerPo Lu <luangruo@yahoo.com>
Tue, 19 Jul 2022 01:33:09 +0000 (09:33 +0800)
commitbcbd06b4bbb57d285988937f82afd70538303536
tree9f81f7179b3111117f99d27d1f79cbccd6283ca3
parent7a937167030d44341409b3a2ac7ff1704142a191
Make drag-and-drop wheel movement work locally too on X

This is provided by the XDND protocol, so it isn't fair for it
to not work with local drag-and-drop.

* lisp/x-dnd.el (x-dnd-note-wheel-movement): New function.  Set
it as the `x-dnd-wheel-function'.
* src/xterm.c (x_dnd_cleanup_drag_and_drop): Clear new flags.
(x_dnd_note_self_wheel): New function.  Set some flags.
(x_dnd_process_quit, x_dnd_begin_drag_and_drop, handle_one_xevent)
(x_connection_closed, x_delete_terminal, mark_xterm): Handle and
set new wheel movement flags
(syms_of_xterm): New variable `x-dnd-wheel-function'.
lisp/x-dnd.el
src/xterm.c