home *** CD-ROM | disk | FTP | other *** search
/ Il CD di internet / CD.iso / SOURCE / AP / JED / JED097-1.TAR / jed / lib / untab.sl < prev    next >
Encoding:
Text File  |  1994-12-12  |  421 b   |  26 lines
  1. % untabify region function
  2.  
  3. % routine to expand a single tab
  4. define untab_untab1 ()
  5. {
  6.    TAB;                       % on stack
  7.    skip_white ();
  8.    what_column ();   % on stack
  9.    bskip_chars ("\t ");
  10.    () - what_column ();   % on stack
  11.    trim ();
  12.    TAB = 0;
  13.    whitespace (());
  14.    TAB = ();
  15. }
  16.  
  17. define untab ()
  18. {
  19.    check_region (0);
  20.    narrow ();
  21.    bob ();
  22.    while (fsearch ("\t")) untab_untab1 ();
  23.    widen ();
  24. }
  25.  
  26.