diff options
author | Maxime Dénès <mail@maximedenes.fr> | 2017-12-22 14:00:05 +0100 |
---|---|---|
committer | Maxime Dénès <mail@maximedenes.fr> | 2017-12-27 14:03:29 +0100 |
commit | 9f1d36749529eb66d834d4b417cbc1d8e7cac325 (patch) | |
tree | 7f1c828f5fc4095764b80bfcda535abca2263732 /vernac/vernacprop.ml | |
parent | 7e319ad03aba413f3165b848eaf821b364f9291b (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.ml | 11 |
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 |