diff options
| author |  barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-04-25 13:58:17 +0000 |
|---|---|---|
| committer | barras <barras@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2001-04-25 13:58:17 +0000 |
| commit | 522df16640a657cd320c91544774223fbf2d2358 (patch) | |
| tree | 050a52ef35c8dd5c0b4bf08ee9e79a79a3aa996e | |
| parent | b2c0e0759a9cfaf919b1e0e2b6d708b099368bdc (diff) | |
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
| -rw-r--r-- | toplevel/toplevel.ml | 2 |
1 files changed, 1 insertions, 1 deletions
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)) -> |