From aba21455f0d9e570106a8b4d9c1bd6241664f1d3 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Thu, 9 Dec 2004 13:48:57 +0000
Subject: Amélioration message localisation constructions et modules

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@6453 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 parsing/prettyp.ml        | 2 +-
 toplevel/vernacentries.ml | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/parsing/prettyp.ml b/parsing/prettyp.ml
index e308230782..da915f17bb 100644
--- a/parsing/prettyp.ml
+++ b/parsing/prettyp.ml
@@ -216,7 +216,7 @@ let print_located_qualid ref =
 	(fun (o,oqid) ->
 	  hov 2 (pr_located_qualid o ++
 	  (if oqid <> qid then
-	    spc() ++ str "(visible as " ++ pr_qualid oqid ++ str")"
+	    spc() ++ str "(shorter name to refer to it is " ++ pr_qualid oqid ++ str")"
 	  else
 	    mt ()))) l
 
diff --git a/toplevel/vernacentries.ml b/toplevel/vernacentries.ml
index 9df803dfd7..7a63799643 100644
--- a/toplevel/vernacentries.ml
+++ b/toplevel/vernacentries.ml
@@ -228,9 +228,9 @@ let print_located_module r =
       str "Module " ++ pr_dirpath dir
     with Not_found ->
       (if fst (repr_qualid qid) = empty_dirpath then
-	str "No module of basename "
+	str "No module is referred to by basename "
       else 
-	str "No module of suffix ") ++ pr_qualid qid
+	str "No module is referred to by name ") ++ pr_qualid qid
   in msgnl msg  
 
 (**********)
-- 
cgit v1.2.3