From 522df16640a657cd320c91544774223fbf2d2358 Mon Sep 17 00:00:00 2001
From: barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Wed, 25 Apr 2001 13:58:17 +0000
Subject: ligne vide lors de l'affichage des messages d'erreur a toplevel entre
 le source cite et la ligne de ^^^

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1720 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 toplevel/toplevel.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/toplevel/toplevel.ml b/toplevel/toplevel.ml
index 124f9e9f1..1db770780 100644
--- a/toplevel/toplevel.ml
+++ b/toplevel/toplevel.ml
@@ -109,7 +109,7 @@ let print_highlight_location ib (bp,ep) =
   let highlight_lines =
     match get_bols_of_loc ib (bp,ep) with
       | ([],(bl,el)) ->  
-	  [< 'sTR"> "; 'sTR(String.sub ib.str bl (el-bl)); 'fNL;
+	  [< 'sTR"> "; 'sTR(String.sub ib.str bl (el-bl-1)); 'fNL;
              'sTR"> "; 'sTR(String.make (bp-bl) ' ');
              'sTR(String.make (ep-bp) '^') >]
       | ((b1,e1)::ml,(bn,en)) ->
-- 
cgit v1.2.3