Mercurial > hg > xemacs-beta

comparison src/events.c @ 217:d44af0c54775 r20-4b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b7
author cvs
date Mon, 13 Aug 2007 10:08:34 +0200
parents 1f0dabaa0855
children 262b8bb4a523
comparison
equal deleted inserted replaced
216:43306a74e31c 217:d44af0c54775
622 /* To be changed to CHECK_SYMBOL. */ 622 /* To be changed to CHECK_SYMBOL. */
623 CHECK_NATNUM (XCAR (value)); 623 CHECK_NATNUM (XCAR (value));
624 CHECK_CONS (XCDR (value)); 624 CHECK_CONS (XCDR (value));
625 if (XINT (Flength (value)) != 2) 625 if (XINT (Flength (value)) != 2)
626 signal_simple_error ("`dnd-data' should be a two-element list", 626 signal_simple_error ("`dnd-data' should be a two-element list",
627 XINT (Flength (value))); 627 Flength (value));
628 /* Check validity of DATA. */ 628 /* Check validity of DATA. */
629 EXTERNAL_LIST_LOOP (dnd_tail, XCAR (XCDR (value))) 629 EXTERNAL_LIST_LOOP (dnd_tail, XCAR (XCDR (value)))
630 { 630 {
631 /* Every element must be a string. */ 631 /* Every element must be a string. */
632 CHECK_STRING (XCAR (dnd_tail)); 632 CHECK_STRING (XCAR (dnd_tail));