beta 2014.06.17 16:53

1 files changed, 29 insertions, 0 deletions

diff --git a/tex/context/base/strc-ref.mkvi b/tex/context/base/strc-ref.mkvi
index 7d9c1c526..87a3ee478 100644
--- a/tex/context/base/strc-ref.mkvi
+++ b/tex/context/base/strc-ref.mkvi
@@ -1358,6 +1358,35 @@
   %\egroup\unhbox\referencebox}
    \endgroup}
 
+\unexpanded\def\startgoto[#label]%
+  {\dontleavehmode
+   \begingroup
+   \iflocation
+     \ctxcommand{doifelsereference("\referenceprefix","#label",\extrareferencearguments)}{\expandafter\startgoto_yes}{\expandafter\startgoto_nop}%
+   \else
+     \expandafter\startgoto_nop
+   \fi}
+
+\unexpanded\def\startgoto_nop
+  {\let\stopgoto\stopgoto_nop}
+
+\unexpanded\def\stopgoto_nop
+  {\endgroup}
+
+\unexpanded\def\startgoto_yes
+  {\expandtexincurrentreference
+   \ctxcommand{injectcurrentreference(\number\ht\strutbox,\number\dp\strutbox)}%
+   \setlocationattributes
+   \setstrut % can be option
+   \global\lastsavedreferenceattribute\lastreferenceattribute
+   \attribute\referenceattribute\lastreferenceattribute
+   \dostarttagged\t!link\empty
+   \let\stopgoto\stopgoto_yes}
+
+\unexpanded\def\stopgoto_yes
+  {\dostoptagged
+   \endgroup}
+
 \def\dogotohtdp#content#dummy[#label]% dummy gobbles spaces
   {\dontleavehmode
    \begingroup