|
|
|
|
@ -23,10 +23,11 @@
|
|
|
|
|
(find-file-noselect newname)
|
|
|
|
|
(with-current-buffer newname
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
(setq delpoint (search-forward "</head>\n"))
|
|
|
|
|
(delete-region (point-min) delpoint)
|
|
|
|
|
(while (re-search-forward "<\\/html>" nil t)
|
|
|
|
|
(replace-match ""))
|
|
|
|
|
(setq delpoint-one (search-forward "<body>\n"))
|
|
|
|
|
(delete-region (point-min) delpoint-one)
|
|
|
|
|
(goto-char (point-max))
|
|
|
|
|
(setq delpoint-two (search-backward "</body>"))
|
|
|
|
|
(delete-region delpoint-two (point-max))
|
|
|
|
|
(write-file newname)))
|
|
|
|
|
|
|
|
|
|
(defun dwdraft ()
|
|
|
|
|
|
