diff options
author | Pierre Courtieu <Pierre.Courtieu@cnam.fr> | 2018-05-03 15:41:04 +0200 |
---|---|---|
committer | Pierre Courtieu <Pierre.Courtieu@cnam.fr> | 2018-05-03 15:55:52 +0200 |
commit | ce52387e89db6dbd5678a72a454e0d833cf7b754 (patch) | |
tree | d19caa4d83e61c932be592255ac4d1b67fe32b93 | |
parent | fad6eee8ddb28fa7840044c65aa02557285e23f0 (diff) |
Fix #7415. Printing Width was not applied to error messages.
-rw-r--r-- | vernac/topfmt.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/vernac/topfmt.ml b/vernac/topfmt.ml index 055f6676e..1d720330a 100644 --- a/vernac/topfmt.ml +++ b/vernac/topfmt.ml @@ -89,12 +89,14 @@ let set_margin v = Format.pp_set_margin Format.str_formatter v; Format.pp_set_margin !std_ft v; Format.pp_set_margin !deep_ft v; + Format.pp_set_margin !err_ft v; (* Heuristic, based on usage: the column on the right of max_indent column is 20% of width, capped to 30 characters *) let m = max (64 * v / 100) (v-30) in Format.pp_set_max_indent Format.str_formatter m; Format.pp_set_max_indent !std_ft m; - Format.pp_set_max_indent !deep_ft m + Format.pp_set_max_indent !deep_ft m; + Format.pp_set_max_indent !err_ft m (** Console display of feedback *) |