mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-04-26 00:01:47 -07:00
Code Issues Projects Releases Wiki Activity

Make DND from other GTK programs work on Wayland

Browse source 
* lisp/pgtk-dnd.el (pgtk-dnd-handle-gdk): Try to keep the
selection contents in extra-data during a motion event.
This commit is contained in:
Po Lu 2022-06-23 13:57:23 +08:00
parent 0b4db66a9d
commit 5cbe50a4fb
1 changed files with 17 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

22
lisp/pgtk-dnd.el
View file

@ -373,15 +373,27 @@ message."
(time (nth 2 client-message))
(action-type (pgtk-dnd-maybe-call-test-function window
action)))
;; Get the selection contents now. GdkWaylandSelection
;; becomes unavailable immediately after `drag-drop' is sent.
(let* ((current-type (pgtk-dnd-current-type window))
(current-action-type (car-safe (aref state 6))))
(when (and current-type
(not (equal current-action-type action-type)))
(aset state 6 (cons action-type
(pgtk-get-selection-internal
(nth 1 client-message)
(intern current-type))))))
(pgtk-update-drop-status (car action-type) time)
(dnd-handle-movement (event-start event)))))
((eq (car client-message) 'quote) ; drag-drop
(let* ((timestamp (nth 2 client-message))
(let* ((state (pgtk-dnd-get-state-for-frame frame))
(timestamp (nth 2 client-message))
(value (and (pgtk-dnd-current-type window)
(pgtk-get-selection-internal
(nth 1 client-message)
(intern (pgtk-dnd-current-type window))
timestamp)))
(or (cdr-safe (aref state 6))
(pgtk-get-selection-internal
(nth 1 client-message)
(intern (pgtk-dnd-current-type window))
timestamp))))
action)
(unwind-protect
(setq action (when value