home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 5 Edit
/
05-Edit.zip
/
me34exe.zip
/
mutt
/
misc
/
deshar.mut
< prev
next >
Wrap
Text File
|
1995-01-14
|
772b
|
38 lines
(const max-lines-of-junk 70)
(include "me.mh")
(defun
MAIN { (bind-to-key "deshar" "`") }
deshar
{
(int n)
(beginning-of-buffer)(set-mark)
(for (n 0) (< n max-lines-of-junk) (+= n 1)
{
(if (looking-at '#') { (delete-region)(msg n " lines of junk.") (done) })
(forward-line 1)
})
(msg "Couldn't find a sh comment line after " n " lines! Phooie")
(halt)
}
deshar-lots-of-files
{
(int part)
(string base-name)
(part 1)
(base-name (complete CC_FNAME
"Base name (each part is in form <base-name><n>): "))
(while (visit-file (concat base-name part))
{
(deshar)(save-buffer)(free-buffer -1)
(+= part 1)
})
(update)
(msg (- part 1) " parts to " '"' base-name '"')
}
)