diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-09-19 10:18:18 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2010-09-19 10:18:18 +0000 |
| commit | 2d76a1df4c70d3321b0629d67dd5c5f84ac89567 (patch) | |
| tree | 297723e4a7d6ee66fd0fd0926ed97c2556296bc4 /ide/preferences.ml | |
| parent | 99aa9904cb19255a154937a0cca39fbc536ffe97 (diff) | |
Addressing part 2 of bug report 2377 (removing intrusive warning when
coqide doc link is the canonical link to last released version of
reference manual instead of link to corresponding coqide version).
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@13436 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'ide/preferences.ml')
| -rw-r--r-- | ide/preferences.ml | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/ide/preferences.ml b/ide/preferences.ml index a99424cf7..a6aaef257 100644 --- a/ide/preferences.ml +++ b/ide/preferences.ml @@ -266,7 +266,12 @@ let load_pref () = set_command_with_pair_compat "cmd_editor" (fun v -> np.cmd_editor <- v); set_hd "text_font" (fun v -> np.text_font <- Pango.Font.from_string v); set_hd "doc_url" (fun v -> - if not (Flags.is_standard_doc_url v) && v <> use_default_doc_url then + if not (Flags.is_standard_doc_url v) && + v <> use_default_doc_url && + (* Extra hack to support links to last released doc version *) + v <> Coq_config.wwwcoq ^ "doc" && + v <> Coq_config.wwwcoq ^ "doc/" + then prerr_endline ("Warning: Non-standard URL for Coq documentation in preference file: "^v); np.doc_url <- v); set_hd "library_url" (fun v -> np.library_url <- v); |