Mercurial Mercurial > repos > isabelle / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | gz | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
corrected swallowing of newlines after end-of-ignore: rollback
authoroheimb
Wed, 08 Jan 2003 13:34:44 +0100
changeset 13775 a918c547cd4d
parent 13774 77a1e723151d
child 13776 f90298f884c4
corrected swallowing of newlines after end-of-ignore: rollback
src/Pure/Isar/isar_output.ML file | annotate | diff | comparison | revisions 
--- a/src/Pure/Isar/isar_output.ML	Tue Jan 07 18:08:17 2003 +0100
+++ b/src/Pure/Isar/isar_output.ML	Wed Jan 08 13:34:44 2003 +0100
@@ -188,8 +188,8 @@
   else Scan.fail_with (K "Bad nesting of meta-comments");
 
 val ignore =
-  Scan.depend (fn i => P.position (Scan.one T.is_begin_ignore) >> pair (i + 1)) ||
-  Scan.depend (fn i => P.position (Scan.one T.is_end_ignore) --| 
+  Scan.depend (fn i => opt_newline |-- P.position (Scan.one T.is_begin_ignore) >> pair (i + 1)) ||
+  Scan.depend (fn i => P.position (Scan.one T.is_end_ignore) --|
     (opt_newline -- check_level i) >> pair (i - 1));
 
 val ignore_cmd = Scan.state -- ignore
isabelle