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:
parent
46fefb0974
commit
6cc1db8174
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user