home *** CD-ROM | disk | FTP | other *** search
- ;; 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.")
- }
- )
-