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 |
|
|
647 |
(get (car obj) 'event-symbol-elements)))) |
(get (car obj) 'event-symbol-elements)))) |
648 |
|
|
649 |
(defun event-modifiers (event) |
(defun event-modifiers (event) |
650 |
"Returns a list of symbols representing the modifier keys in event EVENT. |
"Return a list of symbols representing the modifier keys in event EVENT. |
651 |
The elements of the list may include `meta', `control', |
The elements of the list may include `meta', `control', |
652 |
`shift', `hyper', `super', `alt', `click', `double', `triple', `drag', |
`shift', `hyper', `super', `alt', `click', `double', `triple', `drag', |
653 |
and `down'." |
and `down'." |
676 |
list)))) |
list)))) |
677 |
|
|
678 |
(defun event-basic-type (event) |
(defun event-basic-type (event) |
679 |
"Returns the basic type of the given event (all modifiers removed). |
"Return the basic type of the given event (all modifiers removed). |
680 |
The value is a printing character (not upper case) or a symbol." |
The value is a printing character (not upper case) or a symbol." |
681 |
(if (consp event) |
(if (consp event) |
682 |
(setq event (car event))) |
(setq event (car event))) |