{{{  comments
; simulate a tds-like FILE_FOLD (maybe new filenames, filename ending on .tsr).
; unfiling does not remove the file!
}}}
@if-using not(FF_TDS)
  @use (FF_TDS)
  {{{  libs
  {{{F fun/ff_uni
  :::F fun/ff_uni
  }}}
  }}}
  {{{  vars
  ( defvar ( fft ) )
  }}}
  {{{  toggle-file-fold_tds_no_rm
  (defmac toggle-file-fold-tds-no-rm (
    if test-fold-line (
      {{{  generate a tsr-filename
      set-counter fft store-pos
      go_filename
      ".tsr "  ;
      toggle-file-fold-unique
      repeat 5 (delete-previous-character)
      goto-counter fft
      }}}
    ) else (
      toggle-file-fold
    ) fi
  ))
  }}}
  {{{  undeclare
  ( undeclare ( fft ) )
  }}}
@fi
