src/Pure/General/binding.ML

 (* print *)
 
 fun pretty (Binding {prefix, qualifier, name, pos, ...}) =
   if name = "" then Pretty.str "\"\""
   else
-    Pretty.markup (Position.markup pos Markup.binding)
+    Pretty.markup (Position.markup_properties pos Markup.binding)
       [Pretty.str (Long_Name.implode (map #1 (prefix @ qualifier) @ [name]))]
     |> Pretty.quote;
 
 val print = Pretty.unformatted_string_of o pretty;