diff options
| -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))))) |