On 9/9/2015 2:17 AM, Rik Kabel wrote:
On 2015-09-08 17:52, Hans Hagen wrote:
\def\spac_lines_empty[#1]%
  {\endgraf
   \begingroup
   \forgetall
   \scratchcounter\iffirstargument#1\else3\fi\relax
   \ifhmode
      \crlf
      \advance\scratchcounter\minusone
   \fi
   \dorecurse\scratchcounter{\strut\crlf}%
   \endgroup}
Hmmm. I think that the mode test and added \crlf can go, but the
decrement has to be there, at least if my test with and without \crlf in
the example tests that properly, so:

\def\spac_lines_empty[#1]%
   {\endgraf
    \begingroup
    \forgetall
    \scratchcounter\iffirstargument#1\else3\fi\relax
    \advance\scratchcounter\minusone
    \dorecurse\scratchcounter{\strut\crlf}%
    \endgroup}

Of course, I did not run through more tests and do not know if anything
else depends on this that should be tested.

\def\spac_lines_empty[#1]%
  {\endgraf
   \begingroup
  %\forgetall % debatable
   \ifhmode
      \crlf % finish the current line
   \fi
   \dorecurse{\iffirstargument#1\else3\fi}{\strut\crlf}%
   \endgroup}


\starttext

x1 \emptylines[0] x1
x2 \emptylines[1] x2
x3 \emptylines[2] x3
x4 \emptylines[3] x4

x1 \par \emptylines[0] x1
x2 \par \emptylines[1] x2
x3 \par \emptylines[2] x3
x4 \par \emptylines[3] x4

\stoptext

-----------------------------------------------------------------
                                          Hans Hagen | PRAGMA ADE
              Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
    tel: 038 477 53 69 | voip: 087 875 68 74 | www.pragma-ade.com
                                             | www.pragma-pod.nl
-----------------------------------------------------------------
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the 
Wiki!

maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage  : http://www.pragma-ade.nl / http://tex.aanhet.net
archive  : http://foundry.supelec.fr/projects/contextrev/
wiki     : http://contextgarden.net
___________________________________________________________________________________

Reply via email to