# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 809470921 0
# Node ID 44f42e36b529b3d2f0b1944085e602cbe84a873c
# Parent  83fea4c633e8ee364698628044989458f93415f1
(eventp): Duplicate definition deleted.

diff -r 83fea4c633e8 -r 44f42e36b529 lisp/emacs-lisp/levents.el
--- a/lisp/emacs-lisp/levents.el	Sat Aug 26 20:53:20 1995 +0000
+++ b/lisp/emacs-lisp/levents.el	Sat Aug 26 21:02:01 1995 +0000
@@ -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."