(eventp): Duplicate definition deleted.

This commit is contained in:
Richard M. Stallman 1995-08-26 21:02:01 +00:00
parent 7ea0b430d7
commit 553661834b

View file

@ -56,15 +56,6 @@
(put 'menu 'event-symbol-elements '(eval))
(put 'timeout 'event-symbol-elements '(eval))
(defsubst eventp (obj)
"True if the argument is an event object."
(or (integerp obj)
(and (symbolp obj)
(get obj 'event-symbol-elements))
(and (consp obj)
(symbolp (car obj))
(get (car obj) 'event-symbol-elements))))
(defun allocate-event ()
"Returns an empty event structure.
In this emulation, it returns nil."