Commit 18daafed authored by Jan Djärv's avatar Jan Djärv
Browse files

* x-dnd.el (x-dnd-handle-xdnd): Handle the case where the flags

isn't a cons (i.e. the version is 0).
parent 31f16913
2005-02-05 Jan Dj,Ad(Brv <jan.h.d@swipnet.se>
* x-dnd.el (x-dnd-handle-xdnd): Handle the case where the flags
isn't a cons (i.e. the version is 0).
2005-02-05 Eli Zaretskii <eliz@gnu.org>
 
* help.el (help-for-help): Doc fix.
......
......@@ -557,18 +557,20 @@ EVENT is the client message. FRAME is where the mouse is now.
WINDOW is the window within FRAME where the mouse is now.
FORMAT is 32 (not used). MESSAGE is the data part of an XClientMessageEvent."
(cond ((equal "XdndEnter" message)
(let ((version (ash (car (aref data 1)) -8))
(more-than-3 (cdr (aref data 1)))
(dnd-source (aref data 0)))
(x-dnd-save-state
window nil nil
(if (> more-than-3 0)
(x-window-property "XdndTypeList"
frame "AnyPropertyType"
dnd-source nil t)
(vector (x-get-atom-name (aref data 2))
(x-get-atom-name (aref data 3))
(x-get-atom-name (aref data 4)))))))
(let* ((flags (aref data 1))
(version (and (consp flags) (ash (car flags) -8)))
(more-than-3 (and (consp flags) (cdr flags)))
(dnd-source (aref data 0)))
(if version ;; If flags is bad, version will be nil.
(x-dnd-save-state
window nil nil
(if (> more-than-3 0)
(x-window-property "XdndTypeList"
frame "AnyPropertyType"
dnd-source nil t)
(vector (x-get-atom-name (aref data 2))
(x-get-atom-name (aref data 3))
(x-get-atom-name (aref data 4))))))))
((equal "XdndPosition" message)
(let* ((x (car (aref data 2)))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment