diff options
| author | Maxence Guesdon <maxence.guesdon@inria.fr> | 2003-05-26 13:05:28 +0000 |
|---|---|---|
| committer | Maxence Guesdon <maxence.guesdon@inria.fr> | 2003-05-26 13:05:28 +0000 |
| commit | cd8953aceee3b2df5a31e16c70f5febc377eaef4 (patch) | |
| tree | b64f79d0142b51128d4694cfe38b7a9bd490ca4a | |
| parent | 49abd9f9a7b4dfc662c58225b56755d99b844c2e (diff) | |
patch sur les noms de fichier pour odoc_texi, par Olivier Andrieu
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5583 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | ocamldoc/odoc_texi.ml | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/ocamldoc/odoc_texi.ml b/ocamldoc/odoc_texi.ml index de3bd7f4d..e68edb521 100644 --- a/ocamldoc/odoc_texi.ml +++ b/ocamldoc/odoc_texi.ml @@ -1009,9 +1009,10 @@ class texi = let filename = if texi_filename <> "ocamldoc.texi" then - (if Filename.check_suffix texi_filename ".texi" - then Filename.chop_suffix texi_filename ".texi" - else texi_filename) ^ ".info" + let fn = Filename.basename texi_filename in + (if Filename.check_suffix fn ".texi" + then Filename.chop_suffix fn ".texi" + else fn) ^ ".info" else if title <> "" then title ^ ".info" |