home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 5 Edit
/
05-Edit.zip
/
me34exe.zip
/
mutt
/
misc
/
misc.mut
< prev
next >
Wrap
Text File
|
1995-01-14
|
312b
|
17 lines
;; C Durland Public Domain
(defun
delete-lines-with-re
{
(int n)
(string re)
(re (ask "Delete all lines containing reg-exp: "))
(beginning-of-buffer)
(n 0)
(while (re-search-forward re)
{ (+= n 1)(beginning-of-line)(arg-prefix 1)(cut-line) })
(msg n " lines deleted.")
}
)