[elpa] externals/frog-menu 2b8d04c 3/3: Fix frog-menu-read result for actions when passing an alist

[Stefan Monnier]

branch: externals/frog-menu
commit 2b8d04c1a03b339e2eaf031eacd0d9d615a21322
Author: Clemens Radermacher <clemera@posteo.net>
Commit: Clemens Radermacher <clemera@posteo.net>

    Fix frog-menu-read result for actions when passing an alist
    
    Thanks to @xwl (see #11).
---
 frog-menu.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/frog-menu.el b/frog-menu.el
index f2d797c..441f618 100644
--- a/frog-menu.el
+++ b/frog-menu.el
@@ -759,7 +759,10 @@ RETURN will be the returned value if KEY is pressed."
         (funcall cuhandler buf window)))
     (when (eq res 'frog-menu--complete)
       (setq res (frog-menu--complete prompt strings)))
-    (cond ((eq convf #'car)
+    (cond ((and (eq convf #'car)
+                (stringp res)
+                (eq (get-text-property 0 'face res)
+                    'frog-menu-candidates-face))
            (cdr (assoc res collection)))
           (t res))))