[elpa] externals/ivy-explorer 9af0805 27/29: Improve ivy-explorer-read function again

[Clemens Radermacher]

branch: externals/ivy-explorer
commit 9af080571f530ba179fcbc54308410a9eabf386f
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Improve ivy-explorer-read function again
---
 ivy-explorer.el | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/ivy-explorer.el b/ivy-explorer.el
index 74ad91d..66976d0 100644
--- a/ivy-explorer.el
+++ b/ivy-explorer.el
@@ -663,7 +663,7 @@ Call the permanent action if possible.")
     (funcall ivy-explorer-message-function mstring)))
 
 
-(defun ivy-explorer-read (prompt coll &optional avy mcols width height)
+(defun ivy-explorer-read (prompt coll &optional avy msgf mcols width height)
   "Read value from an explorer grid.
 
 PROMPT and COLL are the same as for `ivy-read'. If AVY is non-nil
@@ -678,10 +678,14 @@ WIDTH is the width to be used to create the grid and 
defaults to
 frame-width.
 
 Height is the height for the grid display and defaults to
-ivy-height."
-  (let ((ivy-explorer-max-columns (or mcols (/ (frame-width) 30)))
+ivy-height.
+
+MSGF is the function to be called with the grid string and defaults to
+`ivy-explorer-message-function.'"
+  (let ((ivy-explorer-message-function (or msgf ivy-explorer-message-function))
+        (ivy-explorer-max-columns (or mcols (/ (frame-width) 30)))
         (ivy-wrap nil)
-        (ivy-explorer-height (or height ivy-height))
+        (ivy-explorer-height (or height ivy-explorer-height))
         (ivy-explorer-width (or width (frame-width)))
         (ivy-height (funcall ivy-explorer-max-function))
         (ivy-display-function #'ivy-explorer--display-function)