[elpa] externals/minibuffer-header f7bc4278e5 1/4: Added log to *Messages* buffer

[ELPA Syncer]

branch: externals/minibuffer-header
commit f7bc4278e54ea59fbd51adf40cc9fbc45deaaedc
Author: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>
Commit: Nicolas P. Rougier <Nicolas.Rougier@inria.fr>

    Added log to *Messages* buffer
---
 minibuffer-header.el | 15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)

diff --git a/minibuffer-header.el b/minibuffer-header.el
index b511878710..e7505f5895 100644
--- a/minibuffer-header.el
+++ b/minibuffer-header.el
@@ -174,12 +174,19 @@
 
 
 (defun minibuffer-header--message-override (orig-fun &rest args)
+(defun minibuffer-header--log (format-string &rest args)
+  (with-current-buffer (get-buffer-create "*Messages*")
+    (let ((inhibit-read-only t)
+          (msg (apply 'format-message format-string args)))
+      (when (and msg message-log-max)
+        (goto-char (point-max))
+        (insert (concat "\n" msg))))))
+
+(defun minibuffer-header--message-override (&rest args)
   "This advice is used to override the original message function"
 
-  ;; Debug buffer (since we cannot use message for log)
-  ;; (with-current-buffer (get-buffer-create "*minibuffer-header-debug*")
-  ;;  (goto-char (point-max))
-  ;;  (insert (format "\n%s" args)))
+  (when (car args)
+    (apply #'minibuffer-header--log args))
   
   (let* ((msg (if (and (car args) (stringp (car args)))
                   (apply 'format-message args)