Browse code
Start from last suggestion when using up-arrow
Joseph Weston authored on 14/12/2021 06:02:43
Showing 1 changed files
| ... | ... |
@@ -100,7 +100,9 @@ |
| 100 | 100 |
next (case direction :backward dec :forward inc) |
| 101 | 101 |
nopts (count options) |
| 102 | 102 |
next-selected (cond |
| 103 |
- (nil? selected) 0 |
|
| 103 |
+ (nil? selected) (case direction |
|
| 104 |
+ :backward (- nopts 1) |
|
| 105 |
+ :forward 0) |
|
| 104 | 106 |
(>= (next selected) nopts) 0 |
| 105 | 107 |
(< (next selected) 0) (- nopts 1) |
| 106 | 108 |
:else (next selected))] |