Commit 2b0f4ba5 authored by Jim Blandy's avatar Jim Blandy

* subr.el (event-basic-type): Deal with listy events properly.

parent a84281e7
......@@ -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)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment