From 847821faaecf92833f1e1564e1ef9377758d4d45 Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Mon, 2 Jul 2018 16:09:16 +0200
Subject: 2018-07-02 14:46:00

---
 tex/context/base/mkiv/strc-reg.mkiv | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

(limited to 'tex/context/base/mkiv/strc-reg.mkiv')

diff --git a/tex/context/base/mkiv/strc-reg.mkiv b/tex/context/base/mkiv/strc-reg.mkiv
index e5adf5e2f..3f8331745 100644
--- a/tex/context/base/mkiv/strc-reg.mkiv
+++ b/tex/context/base/mkiv/strc-reg.mkiv
@@ -83,6 +83,7 @@
    \c!pagestyle=\v!slanted,
    \c!indicator=\v!yes,
    \c!criterium=\v!all,
+   \c!check=\v!yes, % check for weird see usage
   %\c!command=,
    \c!referencing=\v!on,
    \c!location=\v!middle,
@@ -600,6 +601,7 @@
         language    {\registerparameter\s!language}%
         method      {\registerparameter\c!method}%
         numberorder {\registerparameter\c!numberorder}%
+        check       {\registerparameter\c!check}%
         compress    {\registerparameter\c!compress}%
         criterium   {\registerparameter\c!criterium}%
         pagenumber  \ifx\registerpageseparatorsymbol\empty false\else true\fi
@@ -877,11 +879,15 @@
 %    \fi}
 
 \unexpanded\def\withregisterpagecommand#1#2#3#4%
-  {\def\currentregisterpageindex{#2}%
-   \iflocation
-     \strc_references_goto_internal{\applyprocessor{#1}{\registerparameter\c!pagecommand{#4}}}[internal(#2)]%
+  {\ifcase#3\relax
+     {\tt [entry\space not\space flushed]}%
    \else
-     \applyprocessor{#1}{\registerparameter\c!pagecommand{#4}}%
+     \def\currentregisterpageindex{#2}%
+     \iflocation
+       \strc_references_goto_internal{\applyprocessor{#1}{\registerparameter\c!pagecommand{#4}}}[internal(#2)]%
+     \else
+       \applyprocessor{#1}{\registerparameter\c!pagecommand{#4}}%
+     \fi
    \fi}
 
 \unexpanded\def\registeronepage#1#2#3#4% #1:processor content
-- 
cgit v1.2.3