From 267f981c5c05cd795e08ea14aaeab5a49550d21b Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Sun, 23 Feb 2020 17:11:01 +0100
Subject: Adding a Display Parentheses menu in CoqIDE.

---
 ide/coq.ml       | 1 +
 ide/coqide_ui.ml | 1 +
 ide/idetop.ml    | 1 +
 3 files changed, 3 insertions(+)

(limited to 'ide')

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_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 ae2301a0a7..f20e39ad38 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"];
-- 
cgit v1.2.3