help.markup: fix layout bug for "N more results" link in apropos content

diff --git a/basis/help/markup/markup.factor b/basis/help/markup/markup.factor
index 2377a6753a8e39d9984040dc72a3153e15bfe121..678d55df612d13d5612f101daa1dd06c7bebfadd 100644 (file)
--- a/basis/help/markup/markup.factor
+++ b/basis/help/markup/markup.factor
@@ -181,20 +181,22 @@ M: word link-long-text
 
 : >topic ( obj -- topic ) dup topic? [ >link ] unless ;
 
+: topic-span ( topic quot -- ) [ >topic ] dip ($span) ; inline
+
 PRIVATE>
 
-: ($link) ( topic -- ) >topic link-text ;
+: ($link) ( topic -- ) [ link-text ] topic-span ;
 : $link ( element -- ) first ($link) ;
 
-: ($long-link) ( topic -- ) >topic link-long-text ;
+: ($long-link) ( topic -- ) [ link-long-text ] topic-span ;
 : $long-link ( element -- ) first ($long-link) ;
 
 : ($pretty-link) ( topic -- )
-    >topic [ link-icon ] [ drop bl ] [ link-text ] tri ;
+    [ [ link-icon ] [ drop bl ] [ link-text ] tri ] topic-span ;
 : $pretty-link ( element -- ) first ($pretty-link) ;
 
 : ($long-pretty-link) ( topic -- )
-    >topic [ link-icon ] [ drop bl ] [ link-long-text ] tri ;
+    [ [ link-icon ] [ drop bl ] [ link-long-text ] tri ] topic-span ;
 
 : <$pretty-link> ( definition -- element )
     1array \ $pretty-link prefix ;