644 |
"Return a list of symbols representing the modifier keys in event EVENT. |
"Return a list of symbols representing the modifier keys in event EVENT. |
645 |
The elements of the list may include `meta', `control', |
The elements of the list may include `meta', `control', |
646 |
`shift', `hyper', `super', `alt', `click', `double', `triple', `drag', |
`shift', `hyper', `super', `alt', `click', `double', `triple', `drag', |
647 |
and `down'." |
and `down'. |
648 |
|
EVENT may be an event or an event type. If EVENT is a symbol |
649 |
|
that has never been used in an event that has been read as input |
650 |
|
in the current Emacs session, then this function can return nil, |
651 |
|
even when EVENT actually has modifiers." |
652 |
(let ((type event)) |
(let ((type event)) |
653 |
(if (listp type) |
(if (listp type) |
654 |
(setq type (car type))) |
(setq type (car type))) |
675 |
|
|
676 |
(defun event-basic-type (event) |
(defun event-basic-type (event) |
677 |
"Return the basic type of the given event (all modifiers removed). |
"Return the basic type of the given event (all modifiers removed). |
678 |
The value is a printing character (not upper case) or a symbol." |
The value is a printing character (not upper case) or a symbol. |
679 |
|
EVENT may be an event or an event type. If EVENT is a symbol |
680 |
|
that has never been used in an event that has been read as input |
681 |
|
in the current Emacs session, then this function may return nil." |
682 |
(if (consp event) |
(if (consp event) |
683 |
(setq event (car event))) |
(setq event (car event))) |
684 |
(if (symbolp event) |
(if (symbolp event) |