[elpa] externals/minibuffer-header 9762290b67 6/6: Added support for multiline header

[ELPA Syncer]

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

    Added support for multiline header
---
 minibuffer-header.el | 14 ++++++++------
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/minibuffer-header.el b/minibuffer-header.el
index d525f74eb7..b511878710 100644
--- a/minibuffer-header.el
+++ b/minibuffer-header.el
@@ -71,10 +71,10 @@
 
   (concat 
    (propertize (format " #%d Minibuffer" (minibuffer-depth))
-   'face '(bold minibuffer-header-face))
-   (propertize
-    (format " (%s)" this-command)
-   'face 'minibuffer-header-face)))
+               'face '(bold minibuffer-header-face))
+   (propertize (format " (%s)" this-command)
+               'face 'minibuffer-header-face)
+   ))
 
 
 (defun minibuffer-header--setup ()
@@ -89,6 +89,7 @@
     (goto-char (point-min))
     (let* ((inhibit-read-only t)
            (left (minibuffer-header-format))
+           (left (split-string left "\n"))
            (right " ")
               (prompt-beg (point-min))
               (prompt-end (or (next-property-change (+ 1 (point-min)))
@@ -99,7 +100,7 @@
 
       (goto-char (point-min))
       (insert (propertize
-               (concat (propertize left)
+               (concat (propertize (car left))
                        (propertize " "
                                    'message-beg t
                                    'face 'minibuffer-header-face
@@ -108,7 +109,8 @@
                                    'face 'minibuffer-header-message-face)
                        (propertize "\n"
                                    'face 'minibuffer-header-face
-                                   'message-end t))
+                                   'message-end t)
+                       (mapconcat #'identity (cdr left) ""))
                'cursor-intangible t
                'read-only t
                'field t