[elpa] externals/minibuffer-header e415e4fdc2 1/2: Better handling of user defined header

[ELPA Syncer]

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

    Better handling of user defined header
---
 minibuffer-header.el | 23 +++++++++++++----------
 1 file changed, 13 insertions(+), 10 deletions(-)

diff --git a/minibuffer-header.el b/minibuffer-header.el
index a34450f0ac..026ae8b029 100644
--- a/minibuffer-header.el
+++ b/minibuffer-header.el
@@ -118,7 +118,10 @@
            (left (if (stringp 'minibuffer-header-format)
                      minibuffer-header-format
                  (funcall minibuffer-header-format prompt)))
-           (left (split-string left "\n"))
+           (left (if (string-match "\\(.*\\)\n\\(\\(?:.*\n*\\)*\\)" left)
+                     (cons (match-string 1 left)
+                           (match-string 2 left))
+                   (cons left "")))
            (width (- (window-width) (length (car left)) 2))
            (right minibuffer-header-default-message)
            (right (minibuffer-header--fit right width)))
@@ -129,15 +132,15 @@
       (goto-char (point-min))
       (insert (propertize
                (concat (propertize (car left))
-                       (propertize " "
-                                   'message-beg t
-                                   'face 'minibuffer-header-face)
-                       (propertize right
-                                   'face 'minibuffer-header-message-face)
-                       (propertize "\n"
-                                   'face 'minibuffer-header-face
-                                   'message-end t)
-                       (mapconcat #'identity (cdr left) "\n"))
+                 (propertize " "
+                             'face 'minibuffer-header-face
+                             'message-beg t
+                             'display `(space :align-to (- right ,(- (length 
right) -1))))
+                 (propertize right
+                             'face 'minibuffer-header-message-face)
+                 (propertize "\n" 'message-end t
+                                 'face 'minibuffer-header-face)
+                 (cdr left))
                'cursor-intangible t
                'read-only t
                'field t