From 553661834b4b6c01bd8c4ead85f45c908a422150 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Sat, 26 Aug 1995 21:02:01 +0000 Subject: [PATCH] (eventp): Duplicate definition deleted. --- lisp/emacs-lisp/levents.el | 9 --------- 1 file changed, 9 deletions(-) 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." -- 2.39.2