635 |
|
|
636 |
(defsubst eventp (obj) |
(defsubst eventp (obj) |
637 |
"True if the argument is an event object." |
"True if the argument is an event object." |
638 |
(or (integerp obj) |
(or (and (integerp obj) |
639 |
|
;; Filter out integers too large to be events. |
640 |
|
;; M is the biggest modifier. |
641 |
|
(zerop (logand obj (lognot (1- (lsh ?\M-\^@ 1))))) |
642 |
|
(char-valid-p (event-basic-type obj))) |
643 |
(and (symbolp obj) |
(and (symbolp obj) |
644 |
(get obj 'event-symbol-elements)) |
(get obj 'event-symbol-elements)) |
645 |
(and (consp obj) |
(and (consp obj) |