Mercurial > emacs

changeset 12951:44f42e36b529

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(eventp): Duplicate definition deleted.
author Richard M. Stallman <rms@gnu.org>
date Sat, 26 Aug 1995 21:02:01 +0000
parents 83fea4c633e8
children 0ad88e6d8ef1
files lisp/emacs-lisp/levents.el
diffstat 1 files changed, 0 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- 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."