diff options
| author | Richard M. Stallman <rms@gnu.org> | 1995-08-26 21:02:01 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1995-08-26 21:02:01 +0000 |
| commit | 2b2274d9ebbcde55399fb894ff4f105c54c6b9e1 (patch) | |
| tree | 134651ccc55c340d88413507258e644e1a7726a7 | |
| parent | f7e6eb22eea9f6ec7db1bf56a78be5ec9dfa1326 (diff) | |
| download | emacs-2b2274d9ebbcde55399fb894ff4f105c54c6b9e1.tar.gz | |
(eventp): Duplicate definition deleted.
| -rw-r--r-- | lisp/emacs-lisp/levents.el | 9 |
1 files changed, 0 insertions, 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." |