Mercurial > emacs
changeset 3784:d2df5ca46b39
* subr.el (event-basic-type): Deal with listy events properly.
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Thu, 17 Jun 1993 00:16:29 +0000 |
| parents | 6c2fc671adec |
| children | 3455cbb3339d |
| files | lisp/subr.el |
| diffstat | 1 files changed, 2 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/subr.el Wed Jun 16 23:50:05 1993 +0000 +++ b/lisp/subr.el Thu Jun 17 00:16:29 1993 +0000 @@ -285,6 +285,8 @@ (defun event-basic-type (event) "Returns the basic type of the given event (all modifiers removed). The value is an ASCII printing character (not upper case) or a symbol." + (if (consp event) + (setq event (car event))) (if (symbolp event) (car (get event 'event-symbol-elements)) (let ((base (logand event (1- (lsh 1 18)))))