From: Richard M. Stallman <rms@gnu.org>
Date: Sat, 26 Aug 1995 21:02:01 +0000 (+0000)
Subject: (eventp): Duplicate definition deleted.
X-Git-Tag: emacs-19.34~2909
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=553661834b4b6c01bd8c4ead85f45c908a422150;p=emacs.git

(eventp): Duplicate definition deleted.
---

diff --git a/lisp/emacs-lisp/levents.el b/lisp/emacs-lisp/levents.el
index af96a07a2a7..56dfcaf0e16 100644
--- a/lisp/emacs-lisp/levents.el
+++ b/lisp/emacs-lisp/levents.el
@@ -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."