{{{  comments
; save current file and replace leading spaces with tabs, if possible
; this macro uses pipe-to-command and needs the command unexpand!
}}}
@if-using not(SAVETAB)
  @use (SAVETAB)
  {{{  libs
  {{{F fun/error
  :::F fun/error
  }}}
  }}}
  {{{  save-file-with-leading-tabs
  (defmac save-file-with-leading-tabs (
    pipe-to-command
    if in-prompt (
      "unexpand "  ">$ORIFILE
      newline-and-indent
      set-file-unchanged
    ) else (
      failed
    ) fi
  ))
  }}}
@fi
