diff options
| author | Jim Blandy <jimb@redhat.com> | 1993-06-17 00:16:29 +0000 |
|---|---|---|
| committer | Jim Blandy <jimb@redhat.com> | 1993-06-17 00:16:29 +0000 |
| commit | 7d13662f2030703f54227b3ec5e06c0364824165 (patch) | |
| tree | 3854229a41db6826e039e5cc749400a2560979c7 /lisp/subr.el | |
| parent | 5cb6b4ee58f5a429f2abbfd8d3e1d8125d42287b (diff) | |
| download | emacs-7d13662f2030703f54227b3ec5e06c0364824165.tar.gz | |
* subr.el (event-basic-type): Deal with listy events properly.
Diffstat (limited to 'lisp/subr.el')
| -rw-r--r-- | lisp/subr.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 22662dd0687..ad96cc54ee3 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -285,6 +285,8 @@ The elements of the list may include `meta', `control', (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))))) |