export entity file position as well, e.g. relevant for HTML presentation with aux. files;
authorwenzelm
Fri, 19 Aug 2022 15:24:39 +0200
changeset 75904 6d9d9a395533
parent 75903 dce94a1d18fd
child 75905 2ee3ea69e8f1
export entity file position as well, e.g. relevant for HTML presentation with aux. files;
src/Pure/Thy/thy_info.ML
--- a/src/Pure/Thy/thy_info.ML	Fri Aug 19 15:06:04 2022 +0200
+++ b/src/Pure/Thy/thy_info.ML	Fri Aug 19 15:24:39 2022 +0200
@@ -38,7 +38,8 @@
     segments: Document_Output.segment list};
 
 fun adjust_pos_properties (context: presentation_context) pos =
-  Position.offset_properties_of (#adjust_pos context pos) @ Position.id_properties_of pos;
+  Position.offset_properties_of (#adjust_pos context pos) @
+  filter (fn (a, _) => a = Markup.idN orelse a = Markup.fileN) (Position.get_props pos);
 
 structure Presentation = Theory_Data
 (