From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 18 Jun 2019 08:36:06 +0000 (+0200)
Subject: Tweak implementation of byte-compile-info-message
X-Git-Tag: emacs-27.0.90~2428
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a5269a7fcf16d5bd9c4cd557ab933797bbdabff9;p=emacs.git

Tweak implementation of byte-compile-info-message

* lisp/emacs-lisp/byte-run.el (byte-compile-info-message): Clean
up implementation.
---

diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el
index 30a9f984793..96cff2ebeb2 100644
--- a/lisp/emacs-lisp/byte-run.el
+++ b/lisp/emacs-lisp/byte-run.el
@@ -542,7 +542,7 @@ Otherwise, return nil.  For internal use only."
 
 (defun byte-compile-info-message (&rest args)
   "Message format ARGS in a way that looks pleasing in the compilation output."
-  (message "%s" (concat "  INFO     " (apply #'format args))))
+  (message "  %-9s%s" "INFO" (apply #'format args)))
 
 
 ;; I nuked this because it's not a good idea for users to think of using it.