From 364490d7474996063df4b5fb520f06f21b7d6634 Mon Sep 17 00:00:00 2001 From: Reiner Steib Date: Mon, 26 Jun 2006 11:59:44 +0000 Subject: [PATCH] (kill-empty-logs, gnus-byte-compile): Remove anonymous 2006-04-22 contribution. --- lisp/ChangeLog | 5 +++++ lisp/gnus-util.el | 10 +--------- 2 files changed, 6 insertions(+), 9 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 11efb0370..b0c625be3 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2006-06-26 Reiner Steib + + * gnus-util.el (kill-empty-logs, gnus-byte-compile): Remove anonymous + 2006-04-22 contribution. + 2006-06-26 Andreas Seltenreich * gnus.el (gnus-valid-select-methods): Revert last change for nnweb. diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el index 3167d367c..982ed15bb 100644 --- a/lisp/gnus-util.el +++ b/lisp/gnus-util.el @@ -1223,12 +1223,6 @@ is run." :version "22.1" :group 'gnus-various) -(defun kill-empty-logs () - (dolist (buf (list (get-buffer "*Compile-Log*") - (get-buffer "*Compile-Log-Show*"))) - (if (and buf (= (buffer-size buf) 0)) - (kill-buffer buf)))) - (defun gnus-byte-compile (form) "Byte-compile FORM if `gnus-use-byte-compile' is non-nil." (if gnus-use-byte-compile @@ -1241,9 +1235,7 @@ is run." (defalias 'gnus-byte-compile (lambda (form) (let ((byte-compile-warnings '(unresolved callargs redefine))) - (prog1 - (byte-compile form) - (kill-empty-logs))))) + (byte-compile form)))) (gnus-byte-compile form)) form)) -- 2.34.1