home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / me34src.zip / me3 / mutt / builtin / bs_untab.mut < prev    next >
Text File  |  1995-01-14  |  569b  |  25 lines
  1.   ;; bs_untab.mut : backup 1 character even if that char is a tab
  2.   ;; Notes:
  3.   ;;   Ignores arg-prefix ie only backups one character.
  4.   ;; C Durland  Public Domain
  5.  
  6. (defun
  7.   BS-untabify
  8.   {
  9.     (int ts)
  10.  
  11.     (arg-flag FALSE 1)        ;; reset arg count
  12.  
  13.     (if (not (forward-char -1)) (done))    ;; at beginning of buffer
  14.     (if (looking-at "^I")       ;; change tab to blanks
  15.       {
  16.     (ts (tab-stops))(tab-stops 8)
  17.     (tab)            ;; tabs-worth-of-blanks dot tab
  18.     (tab-stops ts)
  19.     (forward-char -1)(delete-char 2)    ;; delete a blank and the tab
  20.       }
  21.       (delete-char 1))
  22.   }
  23. )
  24.  
  25.