From 2d76a1df4c70d3321b0629d67dd5c5f84ac89567 Mon Sep 17 00:00:00 2001 From: herbelin Date: Sun, 19 Sep 2010 10:18:18 +0000 Subject: 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 --- ide/preferences.ml | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'ide/preferences.ml') 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); -- cgit v1.2.3