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

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

Browse Source 
isn't a cons (i.e. the version is 0).
This commit is contained in:
Jan Djärv 2005-02-05 16:53:22 +00:00
parent 31f16913d7
commit 18daafed96
2 changed files with 19 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
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.

26
lisp/x-dnd.el
View File

@ -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)))