Minor logic simplification
This commit is contained in:
parent
b37d082297
commit
9f9b522faf
1 changed files with 1 additions and 2 deletions
|
|
@ -105,8 +105,7 @@ the default action in the list and the remaining elements are the
|
||||||
actions (a key, a function, and a name for each action)."
|
actions (a key, a function, and a name for each action)."
|
||||||
(let (index)
|
(let (index)
|
||||||
(if (integerp action-item)
|
(if (integerp action-item)
|
||||||
(when (and (> action-item 0)
|
(when (< 0 action-item (length action-list))
|
||||||
(< action-item (length action-list)))
|
|
||||||
(setq index action-item))
|
(setq index action-item))
|
||||||
(setq index (cl-position-if
|
(setq index (cl-position-if
|
||||||
(cond
|
(cond
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue