mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

Fix some drag-and-drop handling on Haiku

Browse source 
* lisp/term/haiku-win.el (haiku-drag-and-drop): Don't raise
frame for some types of drags.

* src/haikuselect.c (haiku_unwind_drag_message): Don't hide
tooltip here.
(Fhaiku_drag_message): Only clear grab and hide tooltip if the
drag was successful.
This commit is contained in:
Po Lu 2022-06-11 12:01:01 +00:00
parent ab63000b6a
commit 3675809696
2 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/term/haiku-win.el
View file

@ -316,7 +316,6 @@ or a pair of markers) and turns it into a file system reference."
((posn-area (event-start event)))
((assoc "refs" string)
(with-selected-window window
(raise-frame)
(dolist (filename (cddr (assoc "refs" string)))
(dnd-handle-one-url window 'private
(concat "file:" filename)))))
@ -327,7 +326,6 @@ or a pair of markers) and turns it into a file system reference."
(dnd-handle-one-url window 'private bf)))))
((assoc "text/plain" string)
(with-selected-window window
(raise-frame)
(dolist (text (cddr (assoc "text/plain" string)))
(unless mouse-yank-at-point
(goto-char (posn-point (event-start event))))