Mercurial > hg > xemacs-beta

comparison src/events.c @ 269:b2472a1930f2 r20-5b33

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-5b33
author cvs
date Mon, 13 Aug 2007 10:27:19 +0200
parents 966663fcf606
children c5d627a313b1
comparison
equal deleted inserted replaced
268:6ced69ccd85f 269:b2472a1930f2
503 EVENT_CHANNEL (e) = Qnil; 503 EVENT_CHANNEL (e) = Qnil;
504 504
505 plist = Fcopy_sequence (plist); 505 plist = Fcopy_sequence (plist);
506 Fcanonicalize_plist (plist, Qnil); 506 Fcanonicalize_plist (plist, Qnil);
507 507
508 #define WRONG_EVENT_TYPE_FOR_PROPERTY(prop) \ 508 #define WRONG_EVENT_TYPE_FOR_PROPERTY(prop) \
509 error_with_frob (type, "Invalid event type for `%s' property", keyword) 509 error_with_frob (type, "Invalid event type for `%s' property", \
510 string_data (symbol_name (XSYMBOL (keyword))))
510 511
511 EXTERNAL_PROPERTY_LIST_LOOP (tail, keyword, value, plist) 512 EXTERNAL_PROPERTY_LIST_LOOP (tail, keyword, value, plist)
512 { 513 {
514 CHECK_SYMBOL (keyword);
513 if (EQ (keyword, Qchannel)) 515 if (EQ (keyword, Qchannel))
514 { 516 {
515 if (e->event_type == key_press_event) 517 if (e->event_type == key_press_event)
516 { 518 {
517 while (!CONSOLEP (value)) 519 while (!CONSOLEP (value))