{{{  comments
; jump to next non-space character.
; fold-comments are ignored. folds are closed, when leaving them.
}}}
@if-using not(NEXT-CHAR)
  @use (NEXT-CHAR)
  {{{  forward-text-character
  ( deffun forward-text-character
     ( forward-character
       if test-end-line
        {{{  next textline
        ( do
           ( next-line
             if test-fold-line
              ( open-fold )
             else
              ( if test-end-fold ( close-fold ) fi )
             fi
           )
          while not(or(test-bottom,test-text))
          beginning-of-line
        )
        }}}
       fi
     )
  )
  }}}
@fi
