home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
m
/
me_cd25.zip
/
MUTT2.ZIP
/
WSPACE.MUT
< prev
next >
Wrap
Text File
|
1992-11-09
|
458b
|
14 lines
;; wspace.mut : routines that deal with whitespace.
;; C Durland Public Domain
(defun
skip-whitespace HIDDEN { (while (is-space) (next-character)) }
delete-whitespace { (while (is-space) (delete-character)) }
delete-horizontal-space
{
(while (previous-character) ;; get rid of space on the left
(if (is-space) (delete-character) { (next-character)(break) }))
(delete-whitespace) ;; get rid of space on the right
}
)