diff options
| author | Lionel Rieg | 2015-06-25 14:58:25 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2015-06-26 11:33:57 +0200 |
| commit | aac2d2ac490492f8466e1d45ba0079de376fe25a (patch) | |
| tree | a7cde3a9f7bf933a912c37a0882813e85b8051b0 /printing/ppvernac.ml | |
| parent | e7be889cdc86190ab71709a708e4beb6d3040dd8 (diff) | |
Introduction of a "Undelimit Scope" command, undoing "Delimit Scope"
Diffstat (limited to 'printing/ppvernac.ml')
| -rw-r--r-- | printing/ppvernac.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/printing/ppvernac.ml b/printing/ppvernac.ml index 832c08fe0e..4e889e55f0 100644 --- a/printing/ppvernac.ml +++ b/printing/ppvernac.ml @@ -644,11 +644,15 @@ module Make keyword (if opening then "Open " else "Close ") ++ keyword "Scope" ++ spc() ++ str sc ) - | VernacDelimiters (sc,key) -> + | VernacDelimiters (sc,Some key) -> return ( keyword "Delimit Scope" ++ spc () ++ str sc ++ spc() ++ keyword "with" ++ spc () ++ str key ) + | VernacDelimiters (sc, None) -> + return ( + keyword "Undelimit Scope" ++ spc () ++ str sc + ) | VernacBindScope (sc,cll) -> return ( keyword "Bind Scope" ++ spc () ++ str sc ++ |