# HG changeset patch
# User wenzelm
# Date 1609861193 -3600
# Node ID 32618ae1b65d18d301f75187f0cff0b2511976fb
# Parent  45a34cc581b81726167205382da4f62043ada317
proper theory name, e.g. for HTML/PIDE presentation;

diff -r 45a34cc581b8 -r 32618ae1b65d src/Pure/theory.ML
--- a/src/Pure/theory.ML	Tue Jan 05 16:24:59 2021 +0100
+++ b/src/Pure/theory.ML	Tue Jan 05 16:39:53 2021 +0100
@@ -132,7 +132,7 @@
 
 fun get_markup thy =
   let val {pos, id, ...} = rep_theory thy
-  in theory_markup false (Context.theory_name thy) id pos end;
+  in theory_markup false (Context.theory_long_name thy) id pos end;
 
 fun check long ctxt (name, pos) =
   let