--- a/src/Pure/Isar/proof_context.ML Wed Mar 05 18:26:35 2014 +0100
+++ b/src/Pure/Isar/proof_context.ML Wed Mar 05 19:52:28 2014 +0100
@@ -391,7 +391,7 @@
(Completion.reported_text
(Name_Space.completion (Context.Proof ctxt) class_space (xname, pos))));
val reports =
- if Context_Position.is_visible ctxt andalso Position.is_reported pos
+ if Context_Position.is_reported ctxt pos
then [(pos, Name_Space.markup class_space name)] else [];
in (name, reports) end;
@@ -459,7 +459,7 @@
if Lexicon.is_tid c then
let
val reports =
- if Context_Position.is_visible ctxt andalso Position.is_reported pos
+ if Context_Position.is_reported ctxt pos
then [(pos, Markup.tfree)] else [];
in (TFree (c, default_sort ctxt (c, ~1)), reports) end
else