home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / me34src.zip / me3 / mutt / builtin / wspace.mut < prev   
Text File  |  1995-01-14  |  670b  |  30 lines
  1.   ;; wspace.mut : routines that deal with whitespace.
  2.   ;; C Durland    Public Domain
  3.  
  4. (defun
  5.   skip-whitespace   { (looking-at "[ ^I]+" TRUE) }
  6.   delete-whitespace { (while (is-space) (delete-character)) } 
  7.   delete-horizontal-space
  8.   {
  9.     (delete-previous-whitespace)    ;; get rid of space on the left
  10.     (delete-whitespace)            ;; get rid of space on the right
  11.   }
  12. )
  13.  
  14. ;; delete-previous-whitespace:
  15. ;;   921005   M.J. van der Velden
  16. ;;            Public Domain (Version 1.0)
  17. (defun
  18.    delete-previous-whitespace
  19.    {
  20.        (while (previous-character)
  21.        (if (is-space) {
  22.            (delete-character)
  23.        } {
  24.            (next-character)
  25.            (break)
  26.        })
  27.        )
  28.    }
  29. )
  30.