[NTG-context] extra hyphen in underscore hyphenation

[Hans Hagen]

On 12/8/2022 12:33 PM, Pablo Rodriguez via ntg-context wrote:
> Dear list,
> 
> I have the following sample:
> 
>    \startluacode
>    function document.addfunnyhyphen(tfmdata)
>        local underscore = utf.byte("_")
>        local char       = tfmdata.characters[underscore]
>        if not char then return end
>        tfmdata.characters[0xFE000]   = {
>            width    = 0,
>            height   = 0,
>            depth    = 0,
>            commands = {
>                { "right", -char.width },
>                { "down", char.depth },
>                { "slot", 1, underscore },
>            }
>        }
>    end
> 
>    utilities.sequencers.appendaction("aftercopyingcharacters",
>    "after","document.addfunnyhyphen")
>    \stopluacode
> 
>    \definehyphenationfeatures
>       [underscore]
>       [righthyphenchar="FE000]
> 
>    \sethyphenationfeatures[underscore]%
>    \setuphyphenation[method=traditional]%
> 
>    \starttext
>    \startTEXpage[offset=1em, width=4em]
>      \hsize\zeropoint\tt
>      \hyphenatedword{legibility-legible}
>    \stopTEXpage
>    \stoptext
> 
> In current latest (and in many versions before), I get an extra hyphen
> in the next line after the hyphen, such as:
> 
>         ity-
>         -leg
> 
> As far as I can remember, I would say this used to work before (no extra
> hyphen was added in the next line.
> 
> What am I missing here?

\setuplanguage
  [explicitrighthyphenchar=-1]


-- 

-----------------------------------------------------------------
                                           Hans Hagen | PRAGMA ADE
               Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
        tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl
-----------------------------------------------------------------