aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorVincent Laporte2019-03-25 16:05:49 +0000
committerVincent Laporte2019-03-25 16:05:49 +0000
commit1fa29f0558351634ad5b30876fb089bd22bf28ad (patch)
tree7bfd767e4af955578f79e58d7636bf2b44bb6d14
parentce97ef5375e1596cd7b2510cf576f2961329f523 (diff)
[Vernacular] Deprecate the “Show Script” command
Fixes #8320
-rw-r--r--CHANGES.md2
-rw-r--r--doc/sphinx/proof-engine/proof-handling.rst4
-rw-r--r--stm/stm.ml5
3 files changed, 11 insertions, 0 deletions
diff --git a/CHANGES.md b/CHANGES.md
index a1548f730b..f1f4cd8f07 100644
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -142,6 +142,8 @@ Vernacular commands
- `Hypotheses` and `Variables` can now take implicit binders inside sections.
+- The `Show Script` command has been deprecated.
+
Tools
- The `-native-compiler` flag of `coqc` and `coqtop` now takes an argument which can have three values:
diff --git a/doc/sphinx/proof-engine/proof-handling.rst b/doc/sphinx/proof-engine/proof-handling.rst
index 07215a0c7e..16b158c397 100644
--- a/doc/sphinx/proof-engine/proof-handling.rst
+++ b/doc/sphinx/proof-engine/proof-handling.rst
@@ -544,6 +544,10 @@ Requesting information
``<Your Tactic Text here>``.
+ .. deprecated:: 8.10
+
+ Please use a text editor.
+
.. cmdv:: Show Proof
:name: Show Proof
diff --git a/stm/stm.ml b/stm/stm.ml
index ab388977a5..0c5d0c7b5d 100644
--- a/stm/stm.ml
+++ b/stm/stm.ml
@@ -1121,7 +1121,12 @@ let get_script prf =
in
find [] (VCS.get_branch_pos branch)
+let warn_show_script_deprecated =
+ CWarnings.create ~name:"deprecated-show-script" ~category:"deprecated"
+ (fun () -> Pp.str "The “Show Script” command is deprecated.")
+
let show_script ?proof () =
+ warn_show_script_deprecated ();
try
let prf =
try match proof with