* lisp/initz-vars.el (initz-delete-compile-log-buffer): New user

[elisp/initz.git] / lisp / initz.el

diff --git a/lisp/initz.el b/lisp/initz.el
index 29b136f..2145c6b 100644 (file)
--- a/lisp/initz.el
+++ b/lisp/initz.el
@@ -316,6 +316,11 @@ If ARG is specified, don't display code name."
 
 (defun initz-done ()
   "Initz done."
+  (when initz-delete-compile-log-buffer
+    (mapc #'(lambda (buffer)
+             (when (string-match "^\\*Compile-Log\\*$" (buffer-name buffer))
+               (kill-buffer buffer)))
+         (buffer-list)))
   (initz-message (format initz-done-message-format
                         (initz-version) initz-flavor)))