{{{  comments
; simulating the normal tab-funbctions
; the tabs are replaced by the correct number of spaces. The tab-width is
; set to 8 when origami starts. (Setting another tab-width while reading
; a file has NO influence)
}}}
nodup
{{{  go_to_next_tab
(deffun go_to_next_tab (
  {{{  maybe initialise the counter for tab-width
  if not(counter>0 tab-width) (set-counter tab-width 8) fi
  }}}
  {{{  g-t-n-t-x = #missing `` ''
  store-pos g-t-n-t-x
  inv-counter g-t-n-t-x
  add-counter g-t-n-t-x 1
  do (
    sum-counter g-t-n-t-x tab-width
  ) while not(or(counter>0 g-t-n-t-x,counter-0 g-t-n-t-x))
  if counter-0 g-t-n-t-x (sum-counter g-t-n-t-x tab-width) fi
  }}}
  {{{  insert the spaces
  do (
    "  add-counter g-t-n-t-x -1
  ) while counter>0 g-t-n-t-x
  }}}
))
}}}
{{{  define-tab
(deffun define-tab (
  prompt-counter
    tab-width
    ("tab-width "  "(old= counter tab-width ")-> )
))
}}}