非対話っていうのは、起動してない状態が前提なのかな。
起動した Emacs がいる状態だったら、普通に script 書いて eval すればよさそうだけど。

>>876 って、こういうことだよね。

(mapc (lambda (file)
(with-temp-buffer
(insert-file-contents file)
(goto-char (point-min))
(save-match-data
(while (search-forward "<!-- start -->" nil t)
(let ((s (point)))
(when (search-forward "<!-- end -->" nil t)
(let ((e (point)))
(goto-char s)
(while (search-forward-regexp "^・" e t)
(delete-region (match-beginning 0) (match-end 0))
(insert "●")))))))
(write-file file)))
(directory-files "foo"))