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', | |||
| 285 | (defun event-basic-type (event) | 285 | (defun event-basic-type (event) |
| 286 | "Returns the basic type of the given event (all modifiers removed). | 286 | "Returns the basic type of the given event (all modifiers removed). |
| 287 | The value is an ASCII printing character (not upper case) or a symbol." | 287 | The value is an ASCII printing character (not upper case) or a symbol." |
| 288 | (if (consp event) | ||
| 289 | (setq event (car event))) | ||
| 288 | (if (symbolp event) | 290 | (if (symbolp event) |
| 289 | (car (get event 'event-symbol-elements)) | 291 | (car (get event 'event-symbol-elements)) |
| 290 | (let ((base (logand event (1- (lsh 1 18))))) | 292 | (let ((base (logand event (1- (lsh 1 18))))) |