diff options
| author | Po Lu <luangruo@yahoo.com> | 2022-06-09 13:11:08 +0800 |
|---|---|---|
| committer | Po Lu <luangruo@yahoo.com> | 2022-06-09 13:11:08 +0800 |
| commit | 2f31dbeadff0abc38ded5dd072df1ec179c49945 (patch) | |
| tree | 5e3a0da965fa681348bb48d045d9d94f8edbaea0 /lisp/mouse.el | |
| parent | 7e41b4aa231ed094613fe0ea12e7ec37a396240f (diff) | |
| download | emacs-2f31dbeadff0abc38ded5dd072df1ec179c49945.tar.gz emacs-2f31dbeadff0abc38ded5dd072df1ec179c49945.tar.bz2 emacs-2f31dbeadff0abc38ded5dd072df1ec179c49945.zip | |
Also show mouse DND tooltip contents during interprogram drag-and-drop
* doc/lispref/frames.texi (Drag and Drop): Document new
parameter to `x-begin-drag'.
* lisp/mouse.el (mouse-drag-and-drop-region): Don't hide tooltip
when initiating interprogram drag-and-drop.
* lisp/term/haiku-win.el (x-begin-drag):
* lisp/term/ns-win.el (x-begin-drag): Add stubs for new
parameter.
* src/xfns.c (Fx_begin_drag): New parameter `follow-tooltip'.
(Fx_show_tip, syms_of_xfns): Add records of the last dx and dy
given to `x-show-tip'.
* src/xterm.c (x_clear_dnd_monitors): New function.
(x_dnd_begin_drag_and_drop): Save monitor attributes list if
appropriate.
(x_dnd_compute_tip_xy, x_dnd_update_tooltip_position): New
function.
(x_dnd_update_state, handle_one_xevent): Update tooltip position
during DND mouse movement.
(syms_of_xterm): Update staticpros.
* src/xterm.h: Update prototypes.
Diffstat (limited to 'lisp/mouse.el')
| -rw-r--r-- | lisp/mouse.el | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/lisp/mouse.el b/lisp/mouse.el index 024a018bb91..6a2b1738f71 100644 --- a/lisp/mouse.el +++ b/lisp/mouse.el @@ -3244,7 +3244,6 @@ is copied instead of being cut." (cdr mouse-position))))))) (not (posn-window (event-end event)))))) (setq drag-again-mouse-position nil) - (mouse-drag-and-drop-region-hide-tooltip) (gui-set-selection 'XdndSelection value-selection) (let ((drag-action-or-frame (condition-case nil @@ -3259,7 +3258,7 @@ is copied instead of being cut." ;; `return-frame' doesn't ;; work, allow dropping on ;; the drop frame. - (eq window-system 'haiku)) + (eq window-system 'haiku) t) (quit nil)))) (when (framep drag-action-or-frame) ;; With some window managers `x-begin-drag' |