{{{  comments
; delete all spaces from cursor to next non-space-char or end-of-line.
}}}
@if-using not(DELSPACES)
  @use (DELSPACES)
  ( defset space-or-tab ( "  C-I ) )
  {{{  delspaces
  ( deffun delspaces
     ( if last-message M_ERR_PO () fi
       while and(test-char-set space-or-tab ,not(test-end-line))
        ( delete-character
          if last-message M_ERR_PO ( forward-character ) fi
        )
     )
  )
  }}}
@fi
