4 files changed, 5 insertions, 2 deletions
diff --git a/ide/coq.ml b/ide/coq.ml
index 0c6aef0305..5b66cb745e 100644
--- a/ide/coq.ml
+++ b/ide/coq.ml
@@ -558,6 +558,7 @@ struct
     { opts = [raw_matching]; init = true;
       label = "Display raw _matching expressions" };
     { opts = [notations]; init = true; label = "Display _notations" };
+    { opts = [notations]; init = true; label = "Display _parentheses" };
     { opts = [all_basic]; init = false;
       label = "Display _all basic low-level contents" };
     { opts = [existential]; init = false;
diff --git a/ide/coqide.ml b/ide/coqide.ml
index 143a12deeb..61e95c21b1 100644
--- a/ide/coqide.ml
+++ b/ide/coqide.ml
@@ -460,7 +460,7 @@ let compile sn =
     |Some f ->
       let args = Coq.get_arguments sn.coqtop in
       let cmd = cmd_coqc#get
-        ^ " " ^ String.concat " " args
+        ^ " " ^ String.concat " " (List.map Filename.quote args)
         ^ " " ^ (Filename.quote f) ^ " 2>&1"
       in
       let buf = Buffer.create 1024 in
@@ -474,7 +474,7 @@ let compile sn =
           flash_info (f ^ " successfully compiled")
         else begin
           flash_info (f ^ " failed to compile");
-          sn.messages#default_route#set (Pp.str "Compilation output:\n");
+          sn.messages#default_route#set (Pp.str ("Compilation output:\n" ^ cmd ^ "\n"));
           sn.messages#default_route#add (Pp.str (Buffer.contents buf));
         end
       in
diff --git a/ide/coqide_ui.ml b/ide/coqide_ui.ml
index f22821c6ea..e9ff1bbba1 100644
--- a/ide/coqide_ui.ml
+++ b/ide/coqide_ui.ml
@@ -79,6 +79,7 @@ let init () =
 \n    <menuitem action='Display coercions' />\
 \n    <menuitem action='Display raw matching expressions' />\
 \n    <menuitem action='Display notations' />\
+\n    <menuitem action='Display parentheses' />\
 \n    <menuitem action='Display all basic low-level contents' />\
 \n    <menuitem action='Display existential variable instances' />\
 \n    <menuitem action='Display universe levels' />\
diff --git a/ide/idetop.ml b/ide/idetop.ml
index 60036ef876..9eb0b972b6 100644
--- a/ide/idetop.ml
+++ b/ide/idetop.ml
@@ -49,6 +49,7 @@ let coqide_known_option table = List.mem table [
   ["Printing";"Matching"];
   ["Printing";"Synth"];
   ["Printing";"Notations"];
+  ["Printing";"Parentheses"];
   ["Printing";"All"];
   ["Printing";"Records"];
   ["Printing";"Existential";"Instances"];