From: bg66 <bg66>
Date: Wed, 1 May 2002 12:32:17 +0000 (+0000)
Subject: * lisp/initz-vars.el (initz-delete-compile-log-buffer): New user
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=b970e43f8917c3e541e5a89f49fdbf80fbd66777;p=elisp%2Finitz.git

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