diff options
| author | Pierre-Marie Pédrot | 2018-10-26 13:33:36 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-10-26 13:33:36 +0200 |
| commit | 299018a6f14933e120afc579095bc4f7494a0c6b (patch) | |
| tree | 49587f8968339daf9d14c4702c4431561dcb4f5d | |
| parent | e2096b9e6048bbab5c6da279bab3c3a719dc237f (diff) | |
| parent | 89f5d25c2f7c919ebf581fad78d4ba39992e4007 (diff) | |
Merge PR #8804: Fix issue #8801 (uncaught Not_found after F1 sequence in coqide)
| -rw-r--r-- | ide/wg_Command.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/ide/wg_Command.ml b/ide/wg_Command.ml index 8eddfb3149..740ab9c873 100644 --- a/ide/wg_Command.ml +++ b/ide/wg_Command.ml @@ -152,9 +152,9 @@ object(self) method show = frame#show; let cur_page = notebook#get_nth_page notebook#current_page in - let _, _, e = - List.find (fun (p,_,_) -> p#get_oid == cur_page#get_oid) views in - e#misc#grab_focus () + match List.find (fun (p,_,_) -> p#get_oid == cur_page#get_oid) views with + | (_, _, e) -> e#misc#grab_focus () + | exception Not_found -> () method hide = frame#hide |