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

option.
* lisp/initz.el (initz-done): If it is non-nil, delete the buffer
named `*Compile-Log*'.

diff --git a/ChangeLog b/ChangeLog
index 3b9ab76..2a4b117 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2002-05-01  OHASHI Akira  <bg66@koka-in.org>
+
+       * lisp/initz-vars.el (initz-delete-compile-log-buffer): New user
+       option.
+       * lisp/initz.el (initz-done): If it is non-nil, delete the buffer
+       named `*Compile-Log*'.
+
 2002-04-30  OHASHI Akira  <bg66@koka-in.org>
 
        * lisp/initz-list.el (initz-list-byte-compile-file): Byte-Compile
@@ -35,11 +42,9 @@
 
 2002-04-28  OHASHI Akira  <bg66@koka-in.org>
 
-       * lisp/initz-list.el (initz-list-modeline-string): New constant
-       variable.
+       * lisp/initz-list.el (initz-list-modeline-string): New constant.
        (initz-list-mode): Use it.
-       * lisp/initz-error.el (initz-error-modeline-string): New constant
-       variable.
+       * lisp/initz-error.el (initz-error-modeline-string): New constant.
        (initz-error-mode): Use it.
 
        * README (Development): New section.
@@ -64,7 +69,7 @@
        * lisp/initz-vars.el (initz-list-unloaded-module-face): New face.
        * lisp/initz-list.el (initz-list-node-expand): Use it.
 
-       * lisp/initz-vars.el (initz-list-loaded-mark): New custom variable.
+       * lisp/initz-vars.el (initz-list-loaded-mark): New user option.
        * lisp/initz-list.el (initz-list-node-expand): If module is loaded,
        print it at the rear.
 
@@ -99,7 +104,7 @@
 
 2002-04-24  OHASHI Akira  <bg66@koka-in.org>
 
-       * lisp/initz-list.el (initz-list-node-insert):  When `prefix' equals
+       * lisp/initz-list.el (initz-list-node-insert): When `prefix' equals
        `initz-null-string', don't print `prefix'.
        (initz-list-get-dir): Follow change above.
        (initz-list-insert-file): Ditto.
@@ -201,7 +206,7 @@
 
        * lisp/initz-vars.el (initz-verbose): Fix for XEmacs21; Use `const'
        instead of `other'.
-       (initz-list-input-module-completing): New custom variable.
+       (initz-list-input-module-completing): New user option.
 
        * lisp/initz-list.el (initz-list-input-module): Use it.
        (initz-list-node-insert): Print `prefix'.
@@ -264,9 +269,9 @@
        (initz-list-mode-map): Use them.
        * lisp/initz-error.el (initz-error-mode-map): Ditto.
 
-       * lisp/initz-vars.el(initz-list-node-default-status):
-       New custom variable.
-       * lisp/initz-list.el(initz-list): Use it.
+       * lisp/initz-vars.el (initz-list-node-default-status): New user
+       option.
+       * lisp/initz-list.el (initz-list): Use it.
        (initz-list-get-dir): Run `end-of-line'.
 
        * lisp/initz-error.el (initz-error-node-map): New keymap.
@@ -344,8 +349,8 @@
        (initz-load-file): Use it.
        (initz-done): Ditto.
 
-       * lisp/initz-list.el (initz-list-input-dir-message-format):
-       New constant.
+       * lisp/initz-list.el (initz-list-input-dir-message-format): New
+       constant.
        (initz-list-input-module-message-format): Ditto.
        (initz-list-new-file-exists-message): Ditto.
        (initz-list-new-file-illegal-message): Ditto.
@@ -521,7 +526,7 @@
 
 2001-12-28  OHASHI Akira  <bg66@koka-in.org>
 
-       * lisp/initz-vars.el (initz-verbose): New custom variable.
+       * lisp/initz-vars.el (initz-verbose): New user option.
        * lisp/initz.el (initz-compile): Use it.
        (initz-load-file): Ditto.
        (initz-load): Ditto.
@@ -557,7 +562,7 @@
 
 2001-11-06  OHASHI Akira  <bg66@koka-in.org>
 
-       * lisp/initz.el (initz-load-list): New custom variable.
+       * lisp/initz.el (initz-load-list): New user option.
        (initz-interactively): Ditto.
        (initz-ask-message-format): New const variable.
        (initz-load-file): Use them.

diff --git a/lisp/initz-vars.el b/lisp/initz-vars.el
index f9c08c9..4497e5c 100644 (file)
--- a/lisp/initz-vars.el
+++ b/lisp/initz-vars.el
@@ -87,6 +87,11 @@
   :type 'string
   :group 'initz)
 
+(defcustom initz-delete-compile-log-buffer t
+  "*If non-nil, initz deletes compile log buffer."
+  :type 'boolean
+  :group 'initz)
+
 ;; Faces.
 (defface initz-list-node-face
   '((((class color) (background light)) (:foreground "blue"))

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)))