diff options
| author | Guillaume Melquiond | 2016-09-30 22:50:49 +0200 |
|---|---|---|
| committer | Guillaume Melquiond | 2016-10-01 07:50:12 +0200 |
| commit | b3dbd589e1dc41d7bce18afd87dd6e59968286bb (patch) | |
| tree | 73060444485726726cb62f07db44d209cfbc0c48 /parsing | |
| 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')
| -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 50e469dd2a..96eede2b96 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 -> |