| changeset 80875 | 2e33897071b6 |
| parent 80809 | 4a64fc4d1cde |
| child 80876 | 55b74d63b18c |
--- a/src/Pure/General/binding.ML Thu Sep 12 19:46:08 2024 +0200 +++ b/src/Pure/General/binding.ML Thu Sep 12 19:52:01 2024 +0200 @@ -172,7 +172,7 @@ 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;