* x-dnd.el (x-dnd-init-frame): Call x-register-dnd-atom.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index a994da426253876a95502f1b17ca99991096fa75..ada27d2c275f6c2ce7cd9db2dbf83bbe55ce9fd5 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2006-08-11  Jan Dj\e,Ad\e(Brv  <jan.h.d@swipnet.se>
+
+       * x-dnd.el (x-dnd-init-frame): Call x-register-dnd-atom.
+
 2006-08-10  Romain Francoise  <romain@orebokech.com>
 
        * textmodes/dns-mode.el: Alias `zone-mode' to `dns-mode'.

diff --git a/lisp/x-dnd.el b/lisp/x-dnd.el
index 693a2d7fa4be6c4cc2205f708307eca99c3faba1..81fe9a8e868a23c8469927b7e6a23f1873288cbe 100644 (file)
--- a/lisp/x-dnd.el
+++ b/lisp/x-dnd.el
@@ -121,6 +121,12 @@ any protocol specific data.")
 
 (defun x-dnd-init-frame (&optional frame)
   "Setup drag and drop for FRAME (i.e. create appropriate properties)."
+  (x-register-dnd-atom "DndProtocol" frame)
+  (x-register-dnd-atom "_MOTIF_DRAG_AND_DROP_MESSAGE" frame)
+  (x-register-dnd-atom "XdndEnter" frame)
+  (x-register-dnd-atom "XdndPosition" frame)
+  (x-register-dnd-atom "XdndLeave" frame)
+  (x-register-dnd-atom "XdndDrop" frame)
   (x-dnd-init-xdnd-for-frame frame)
   (x-dnd-init-motif-for-frame frame))