From: 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/gitweb/?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 + + * 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 * lisp/initz-list.el (initz-list-byte-compile-file): Byte-Compile @@ -35,11 +42,9 @@ 2002-04-28 OHASHI Akira - * 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 - * 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 - * 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 - * 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)))