diff options
author | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2016-09-30 22:50:49 +0200 |
---|---|---|
committer | Guillaume Melquiond <guillaume.melquiond@inria.fr> | 2016-10-01 07:50:12 +0200 |
commit | b3dbd589e1dc41d7bce18afd87dd6e59968286bb (patch) | |
tree | 73060444485726726cb62f07db44d209cfbc0c48 /parsing/g_vernac.ml4 | |
parent | 5b6dd304b9f88c86ebb066c1f173bb011d2b5f83 (diff) |
Add command 'Set foo Append "bar"' for appending to an option (bug #5109).
For now, the only meaningful user is "Set Warnings". Example:
Section Bar.
Local Set Warnings Append "-foo".
(* warning foo is now disabled *)
End Bar.
(* foo is now reenabled, assuming it was before entering the section *)
Diffstat (limited to 'parsing/g_vernac.ml4')
-rw-r--r-- | parsing/g_vernac.ml4 | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/parsing/g_vernac.ml4 b/parsing/g_vernac.ml4 index 50e469dd2..96eede2b9 100644 --- a/parsing/g_vernac.ml4 +++ b/parsing/g_vernac.ml4 @@ -851,6 +851,8 @@ GEXTEND Gram (* For acting on parameter tables *) | "Set"; table = option_table; v = option_value -> VernacSetOption (table,v) + | "Set"; table = option_table; "Append"; v = STRING -> + VernacSetAppendOption (table,v) | "Set"; table = option_table -> VernacSetOption (table,BoolValue true) | IDENT "Unset"; table = option_table -> |