1
0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-21 06:55:39 +00:00

Fix drag and drop from some Qt versions

* lisp/x-dnd.el (x-dnd-handle-xdnd): Fix XdndDrop time stamp bug.
Problem and tiny change reported by Urs Fleisch (Bug#20804).
Copyright-paperwork-exempt: yes
This commit is contained in:
Paul Eggert 2020-01-19 23:40:45 -08:00
parent 46fefb0974
commit 6cc1db8174

View File

@ -485,10 +485,12 @@ FORMAT is 32 (not used). MESSAGE is the data part of an XClientMessageEvent."
((equal "XdndDrop" message)
(if (windowp window) (select-window window))
(let* ((dnd-source (aref data 0))
(timestamp (aref data 2))
(value (and (x-dnd-current-type window)
(x-get-selection-internal
'XdndSelection
(intern (x-dnd-current-type window)))))
(intern (x-dnd-current-type window))
timestamp)))
success action)
(setq action (if value