home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / mutt / bs_untab.mut < prev    next >
Text File  |  1988-09-07  |  425b  |  19 lines
  1.   ;; bs_untab.mut : backup 1 character even if that char is a tab
  2.  
  3. (defun
  4.   BS-untabify
  5.   {
  6.     (int ts)
  7.  
  8.     (if (not (previous-character)) (done))    ; at beginning of buffer
  9.     (if (looking-at "^I")       ; change tab to blanks
  10.     {
  11.       (ts (tab-stops))(tab-stops 8)
  12.       (tab)    ; tabs-worth-of-blanks blank dot
  13.       (delete-previous-character)
  14.       (tab-stops ts)
  15.     })
  16.     (delete-character)
  17.   }
  18. )
  19.