From 47921cf90d7512be1b260ea29e04b00e2a60c290 Mon Sep 17 00:00:00 2001 From: Lars Magne Ingebrigtsen Date: Sat, 22 Apr 2006 00:51:38 +0000 Subject: [PATCH] 2006-04-22 Lars Magne Ingebrigtsen * gnus-util.el (gnus-byte-compile): Use it. 2006-04-22 xyblor (Tiny change.) * gnus-util.el (kill-empty-logs): New function. --- lisp/ChangeLog | 8 ++++++++ lisp/gnus-util.el | 10 +++++++++- 2 files changed, 17 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e342c827b..139a07ebe 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,11 @@ +2006-04-22 Lars Magne Ingebrigtsen + + * gnus-util.el (gnus-byte-compile): Use it. + +2006-04-22 xyblor (Tiny change.) + + * gnus-util.el (kill-empty-logs): New function. + 2006-04-22 Lars Magne Ingebrigtsen * message.el (message-mail-alias-type): Doc fix. diff --git a/lisp/gnus-util.el b/lisp/gnus-util.el index 11bff314d..c0fbcb41b 100644 --- a/lisp/gnus-util.el +++ b/lisp/gnus-util.el @@ -1221,6 +1221,12 @@ 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 @@ -1233,7 +1239,9 @@ is run." (defalias 'gnus-byte-compile (lambda (form) (let ((byte-compile-warnings '(unresolved callargs redefine))) - (byte-compile form)))) + (prog1 + (byte-compile form) + (kill-empty-logs))))) (gnus-byte-compile form)) form)) -- 2.34.1