diff options
Diffstat (limited to 'lib/feedback.ml')
-rw-r--r-- | lib/feedback.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/feedback.ml b/lib/feedback.ml index e723bf4ba..971a51e35 100644 --- a/lib/feedback.ml +++ b/lib/feedback.ml @@ -51,7 +51,9 @@ open Pp_control type logger = ?loc:Loc.t -> level -> std_ppcmds -> unit -let msgnl_with ?pp_tag fmt strm = msg_with ?pp_tag fmt (strm ++ fnl ()) +let msgnl_with ?pp_tag fmt strm = + pp_with ?pp_tag fmt (strm ++ fnl ()); + Format.pp_print_flush fmt () (* XXX: This is really painful! *) module Emacs = struct |