aboutsummaryrefslogtreecommitdiffhomepage
path: root/vernac/vernacprop.ml
diff options
context:
space:
mode:
authorGravatar Maxime Dénès <mail@maximedenes.fr>2017-12-22 14:00:05 +0100
committerGravatar Maxime Dénès <mail@maximedenes.fr>2017-12-27 14:03:29 +0100
commit9f1d36749529eb66d834d4b417cbc1d8e7cac325 (patch)
tree7f1c828f5fc4095764b80bfcda535abca2263732 /vernac/vernacprop.ml
parent7e319ad03aba413f3165b848eaf821b364f9291b (diff)
Remove query-in-IDE warning.
I don't understand what is wrong with putting a query in a script running in the IDE. It is typically needed when giving demos, and that sounds like a ligitimate use case. By the way, we do it ourselves every year during the demo at CoqPL...
Diffstat (limited to 'vernac/vernacprop.ml')
-rw-r--r--vernac/vernacprop.ml11
1 files changed, 0 insertions, 11 deletions
diff --git a/vernac/vernacprop.ml b/vernac/vernacprop.ml
index 4a01ef2ef..8db006849 100644
--- a/vernac/vernacprop.ml
+++ b/vernac/vernacprop.ml
@@ -53,17 +53,6 @@ let is_debug cmd = match under_control cmd with
| VernacSetOption (["Ltac";"Debug"], _) -> true
| _ -> false
-let is_query cmd = match under_control cmd with
- | VernacChdir None
- | VernacMemOption _
- | VernacPrintOption _
- | VernacCheckMayEval _
- | VernacGlobalCheck _
- | VernacPrint _
- | VernacSearch _
- | VernacLocate _ -> true
- | _ -> false
-
let is_undo cmd = match under_control cmd with
| VernacUndo _ | VernacUndoTo _ -> true
| _ -> false