diff src/events.c @ 207:e45d5e7c476e r20-4b2

Import from CVS: tag r20-4b2
author cvs
date Mon, 13 Aug 2007 10:03:52 +0200
parents 850242ba4a81
children 41ff10fd062f
line wrap: on
line diff
--- a/src/events.c	Mon Aug 13 10:02:48 2007 +0200
+++ b/src/events.c	Mon Aug 13 10:03:52 2007 +0200
@@ -1920,13 +1920,13 @@
     }
 }
 
-#ifdef HAVE_OFFIX_DND
-DEFUN ("event-dnd-data", Fevent_dnd_data, 1, 1, 0, /*
+DEFUN ("event-drag-and-drop-data", Fevent_drag_and_drop_data, 1, 1, 0, /*
 Return the Dnd data list of EVENT.
-EVENT should be a dnd_drop (later also dnd_drag) event.
+EVENT should be a dnd_drop event.
 */
        (event))
 {
+#ifdef HAVE_OFFIX_DND
  again:
   CHECK_LIVE_EVENT (event);
   switch (XEVENT (event)->event_type)
@@ -1937,8 +1937,10 @@
       event = wrong_type_argument (Qdnd_drop_event_p, event);
       goto again;
     }
+#else /* !HAVE_OFFIX_DND */
+  return Qnil;
+#endif /* HAVE_OFFIX_DND */
 }
-#endif /* HAVE_OFFIX_DND */
 
 DEFUN ("event-properties", Fevent_properties, 1, 1, 0, /*
 Return a list of all of the properties of EVENT.
@@ -2000,7 +2002,7 @@
       props = Fcons (Qx, Fcons (Fevent_x_pixel (event), props));
       props = Fcons (Qmodifiers, Fcons (Fevent_modifiers (event), props));
       props = Fcons (Qbutton, Fcons (Fevent_button (event), props));
-      props = Fcons (Qdnd_data, Fcons (Fevent_dnd_data (event), props));
+      props = Fcons (Qdnd_data, Fcons (Fevent_drag_and_drop_data (event), props));
       break;
 #endif
 
@@ -2070,9 +2072,7 @@
   DEFSUBR (Fevent_process);
   DEFSUBR (Fevent_function);
   DEFSUBR (Fevent_object);
-#ifdef HAVE_OFFIX_DND
-  DEFSUBR (Fevent_dnd_data);
-#endif
+  DEFSUBR (Fevent_drag_and_drop_data);
 
   defsymbol (&Qeventp, "eventp");
   defsymbol (&Qevent_live_p, "event-live-p");