corrected swallowing of newlines after end-of-ignore (improved)

--- a/src/Pure/Isar/isar_output.ML	Tue Jan 07 14:32:04 2003 +0100
+++ b/src/Pure/Isar/isar_output.ML	Tue Jan 07 18:08:17 2003 +0100
@@ -188,8 +188,9 @@
   else Scan.fail_with (K "Bad nesting of meta-comments");
 
 val 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) --| check_level i >> pair (i - 1));
+  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) --| 
+    (opt_newline -- check_level i) >> pair (i - 1));
 
 val ignore_cmd = Scan.state -- ignore
   >> (fn (i, (x, pos)) => (false, (None, ((Latex.Basic x, ("", pos)), i))));