diff options
| author | Jim Blandy <[email protected]> | 1993-06-17 00:16:29 +0000 |
|---|---|---|
| committer | Jim Blandy <[email protected]> | 1993-06-17 00:16:29 +0000 |
| commit | 2b0f4ba538126e4ebcda851d5acac2b6fbf47c96 (patch) | |
| tree | ab865805b6824b66539f383ea6e029783b9baafd /lisp/subr.el | |
| parent | a84281e72481f3ad24a33d6013e5631541464bc5 (diff) | |
* 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 22662dd068..ad96cc54ee 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))))) |