comparison lisp/emacs-lisp/levents.el @ 12951:44f42e36b529

(eventp): Duplicate definition deleted.

12950:83fea4c633e8

  (funcall (nth 1 event) (nth 2 event)))

(put 'eval 'event-symbol-elements '(eval))
(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."
  nil)

12951:44f42e36b529

  (funcall (nth 1 event) (nth 2 event)))

(put 'eval 'event-symbol-elements '(eval))
(put 'menu 'event-symbol-elements '(eval))
(put 'timeout 'event-symbol-elements '(eval))

(defun allocate-event ()
  "Returns an empty event structure.
In this emulation, it returns nil."
  nil)