diff options
Diffstat (limited to 'ide/document.ml')
| -rw-r--r-- | ide/document.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ide/document.ml b/ide/document.ml index 9b048320a7..fab318f18f 100644 --- a/ide/document.ml +++ b/ide/document.ml @@ -135,7 +135,7 @@ let find_id d f = | { state_id = Some id; data } when f id data -> Some id | _ -> None in try CList.find_map pred top, true with Not_found -> - try CList.find_map pred focus, focused d with Not_found -> + try CList.find_map pred focus, false with Not_found -> CList.find_map pred bot, true let before_tip d = |