# HG changeset patch
# User wenzelm
# Date 1565425916 -7200
# Node ID de75eea6ffc88bccfc57749a5fbcc9b393438f3d
# Parent  8a19b92ec3d6bece07ff1f25244770a02f9c98dc
tuned message;

diff -r 8a19b92ec3d6 -r de75eea6ffc8 src/Pure/General/position.ML
--- a/src/Pure/General/position.ML	Sat Aug 10 10:26:21 2019 +0200
+++ b/src/Pure/General/position.ML	Sat Aug 10 10:31:56 2019 +0200
@@ -242,7 +242,7 @@
     else s1 ^ Markup.markup (Markup.properties props Markup.position) s2
   end;
 
-val here_list = implode o map here;
+val here_list = map here #> distinct (op =) #> implode;
 
 
 (* range *)