Mercurial > hg > xemacs-beta

comparison src/events.c @ 203:850242ba4a81 r20-3b28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b28
author cvs
date Mon, 13 Aug 2007 10:02:21 +0200
parents 169c0442b401
children e45d5e7c476e
comparison
equal deleted inserted replaced
202:61eefc8fc970 203:850242ba4a81
433 plist = Fcdr (plist); 433 plist = Fcdr (plist);
434 val = Fcar (plist); 434 val = Fcar (plist);
435 plist = Fcdr (plist); 435 plist = Fcdr (plist);
436 if (EQ (prop, Qchannel)) 436 if (EQ (prop, Qchannel))
437 { 437 {
438 if (!DEVICEP (val) && !CONSOLEP (val) && !FRAMEP (val) 438 if (!FRAMEP (val) && !NILP (val))
439 && !NILP (val))
440 signal_simple_error ("Invalid event channel", val); 439 signal_simple_error ("Invalid event channel", val);
441 EVENT_CHANNEL (e) = val; 440 EVENT_CHANNEL (e) = val;
442 } 441 }
443 else if (EQ (prop, Qkey)) 442 else if (EQ (prop, Qkey))
444 { 443 {