From de32427bd2785c365374c554b4b74e97749cb995 Mon Sep 17 00:00:00 2001
From: Pierre Courtieu
Date: Mon, 19 Oct 2015 11:28:30 +0200
Subject: Fixed #4274, bad formatting of messages in emacs mode.

---
 lib/pp.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/pp.ml b/lib/pp.ml
index 1711008ead..4ed4b17791 100644
--- a/lib/pp.ml
+++ b/lib/pp.ml
@@ -362,11 +362,11 @@ let emacs_quote_info_start = "<infomsg>"
 let emacs_quote_info_end = "</infomsg>"
 
 let emacs_quote g =
-  if !print_emacs then str emacs_quote_start ++ hov 0 g ++ str emacs_quote_end
+  if !print_emacs then hov 0 (str emacs_quote_start ++ g ++ str emacs_quote_end)
   else hov 0 g
 
 let emacs_quote_info g =
-  if !print_emacs then str emacs_quote_info_start++fnl() ++ hov 0 g ++ str emacs_quote_info_end
+  if !print_emacs then hov 0 (str emacs_quote_info_start++ brk(0,0) ++ g ++ brk(0,0) ++ str emacs_quote_info_end)
   else hov 0 g
 
 
-- 
cgit v1.2.3