[elpa] externals/frog-menu 73d523b 1/2: Fix some menu issues

[Clemens Radermacher]

branch: externals/frog-menu
commit 73d523b4049be7865a73a1c4cbfc37d45463edc8
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>

    Fix some menu issues
---
 frog-menu.el | 24 ++++++++++++++++--------
 1 file changed, 16 insertions(+), 8 deletions(-)

diff --git a/frog-menu.el b/frog-menu.el
index dcc422e..882b152 100644
--- a/frog-menu.el
+++ b/frog-menu.el
@@ -293,15 +293,19 @@ Fills the buffer with a grid of FORMATTED-STRINGS 
followed by PROMPT and
 ACTIONS."
   (when formatted-strings
     (insert formatted-strings)
-    (insert "\n\n"))
-  (add-text-properties
-   (point)
-   (progn
-     (insert prompt)
-     (point))
-   '(face frog-menu-prompt-face))
-  (insert "\n")
+    (insert "\n"))
+  (unless (string-empty-p prompt)
+       (insert "\n")
+       (add-text-properties
+        (point)
+        (progn
+       (insert prompt)
+       (point))
+        '(face frog-menu-prompt-face))
+       (insert "\n"))
   (when formatted-actions
+       (when (string-empty-p prompt)
+         (insert "\n"))
     (insert formatted-actions))
   (when formatted-strings
       ;; padding for avy char
@@ -313,6 +317,10 @@ ACTIONS."
                       (make-string frog-menu-min-col-padding ?\s)
                       (if frog-menu-avy-padding " " "")))
       (forward-line 1)))
+  ;; insert invisible char otherwise posframe
+  ;; hides second line when only two strings and
+  ;; no prompt, no actions
+  (insert " ")
   ;; posframe needs point at start,
   ;; otherwise it fails on first init
   (goto-char (point-min)))