198 |
list)) |
list)) |
199 |
|
|
200 |
(defun butlast (list &optional n) |
(defun butlast (list &optional n) |
201 |
"Returns a copy of LIST with the last N elements removed." |
"Return a copy of LIST with the last N elements removed." |
202 |
(if (and n (<= n 0)) list |
(if (and n (<= n 0)) list |
203 |
(nbutlast (copy-sequence list) n))) |
(nbutlast (copy-sequence list) n))) |
204 |
|
|
641 |
(get (car obj) 'event-symbol-elements)))) |
(get (car obj) 'event-symbol-elements)))) |
642 |
|
|
643 |
(defun event-modifiers (event) |
(defun event-modifiers (event) |
644 |
"Returns 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'." |
670 |
list)))) |
list)))) |
671 |
|
|
672 |
(defun event-basic-type (event) |
(defun event-basic-type (event) |
673 |
"Returns the basic type of the given event (all modifiers removed). |
"Return the basic type of the given event (all modifiers removed). |
674 |
The value is a printing character (not upper case) or a symbol." |
The value is a printing character (not upper case) or a symbol." |
675 |
(if (consp event) |
(if (consp event) |
676 |
(setq event (car event))) |
(setq event (car event))) |