diff options
| author | Pierre-Marie Pédrot | 2018-11-17 13:43:21 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2018-11-17 13:43:21 +0100 |
| commit | 71938f0de10e1f3b69b1158b80b4898bf3a7dfdb (patch) | |
| tree | 5cf67cc560059f8423724688fe88c7ed6a6db2b4 /ide/preferences.ml | |
| parent | f8a76b3d383abf468fb21df509f5da8f8aafa913 (diff) | |
| parent | a60461fdc0453a32451221d22e906ea74a0341e5 (diff) | |
Merge PR #8968: Miscellaneous CoqIDE fixes
Diffstat (limited to 'ide/preferences.ml')
| -rw-r--r-- | ide/preferences.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ide/preferences.ml b/ide/preferences.ml index 6dc922c225..045d650c1c 100644 --- a/ide/preferences.ml +++ b/ide/preferences.ml @@ -688,7 +688,7 @@ let pmodifiers ?(all = false) name p = modifiers name (str_to_mod_list p#get) -let configure ?(apply=(fun () -> ())) () = +let configure ?(apply=(fun () -> ())) parent = let cmd_coqtop = string ~f:(fun s -> cmd_coqtop#set (if s = "AUTO" then None else Some s)) @@ -1068,7 +1068,7 @@ let configure ?(apply=(fun () -> ())) () = (* Format.printf "before edit: current.text_font = %s@." (Pango.Font.to_string current.text_font); *) - let x = edit ~apply "Customizations" cmds in + let x = edit ~apply "Customizations" ~parent cmds in (* Format.printf "after edit: current.text_font = %s@." (Pango.Font.to_string current.text_font); *) |