Commit 55366183 authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(eventp): Duplicate definition deleted.

parent 7ea0b430
......@@ -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."
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment