/[emacs]/emacs/lisp/subr.el
ViewVC logotype

Diff of /emacs/lisp/subr.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.307.2.12 by miles, Tue May 11 02:30:17 2004 UTC revision 1.307.2.13 by miles, Tue Jul 6 09:14:19 2004 UTC
# Line 635  The normal global definition of the char Line 635  The normal global definition of the char
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)

Legend:
Removed from v.1.307.2.12  
changed lines
  Added in v.1.307.2.13

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26