From 693b22e92804aee56efd432e7c66b1a787c15881 Mon Sep 17 00:00:00 2001
From: ppedrot
Date: Thu, 28 Jun 2012 12:48:44 +0000
Subject: Fixing info_auto / info_trivial display.

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

(limited to 'lib')

diff --git a/lib/pp.ml4 b/lib/pp.ml4
index 4eaf962636..d05abbcd02 100644
--- a/lib/pp.ml4
+++ b/lib/pp.ml4
@@ -346,7 +346,7 @@ let print_color s x =
 let make_body color info s =
   emacs_quote (print_color color (print_color "1" (hov 0 (info ++ spc () ++ s))))
 
-let debugbody strm = print_color "36" (str "Debug:" ++ spc () ++ strm) (* cyan *)
+let debugbody strm = print_color "36" (hov 0 (str "Debug:" ++ spc () ++ strm)) (* cyan *)
 let warnbody strm = make_body "93" (str "Warning:") strm (* bright yellow *)
 let errorbody strm = make_body "31" (str "Error:") strm (* bright red *)
 
-- 
cgit v1.2.3