Mercurial > hg > xemacs-beta
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");