* lisp/subr.el (eventp): Presume that if it looks vaguely like an event,