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)."
|
||||
(let (index)
|
||||
(if (integerp action-item)
|
||||
(when (and (> action-item 0)
|
||||
(< action-item (length action-list)))
|
||||
(when (< 0 action-item (length action-list))
|
||||
(setq index action-item))
|
||||
(setq index (cl-position-if
|
||||
(cond
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue