diff options
| author |  Pierre Courtieu <Pierre.Courtieu@cnam.fr> | 2014-12-15 17:43:14 +0100 |
|---|---|---|
| committer | Pierre Courtieu <Pierre.Courtieu@cnam.fr> | 2014-12-15 17:43:35 +0100 |
| commit | 4fec6bdf0ad0f49c98a82538c5caf4511ba5e95c (patch) | |
| tree | 4a713cdd2e77f1332c24dcc017de38933645b65d /parsing/g_vernac.ml4 | |
| parent | 5e206cc563471ec61e320ba0e7066604d5671f10 (diff) | |
About now accepts hypothesis names and goal selector.
Diffstat (limited to 'parsing/g_vernac.ml4')
| -rw-r--r-- | parsing/g_vernac.ml4 | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/parsing/g_vernac.ml4 b/parsing/g_vernac.ml4 index 3ae7bd92c..ce731a5f5 100644 --- a/parsing/g_vernac.ml4 +++ b/parsing/g_vernac.ml4 @@ -794,7 +794,6 @@ GEXTEND Gram | IDENT "Print"; IDENT "Namespace" ; ns = dirpath -> VernacPrint (PrintNamespace ns) | IDENT "Inspect"; n = natural -> VernacPrint (PrintInspect n) - | IDENT "About"; qid = smart_global -> VernacPrint (PrintAbout qid) | IDENT "Add"; IDENT "ML"; IDENT "Path"; dir = ne_string -> VernacAddMLPath (false, dir) @@ -839,6 +838,8 @@ GEXTEND Gram | IDENT "Check"; c = lconstr -> fun g -> VernacCheckMayEval (None, g, c) (* Searching the environment *) + | IDENT "About"; qid = smart_global -> + fun g -> VernacPrint (PrintAbout (qid,g)) | IDENT "SearchHead"; c = constr_pattern; l = in_or_out_modules -> fun g -> VernacSearch (SearchHead c,g, l) | IDENT "SearchPattern"; c = constr_pattern; l = in_or_out_modules -> |