summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorClemens Radermacher <clemera@posteo.net>2020-11-15 10:57:34 +0100
committerClemens Radermacher <clemera@posteo.net>2020-11-15 10:57:34 +0100
commit2b8d04c1a03b339e2eaf031eacd0d9d615a21322 (patch)
tree25d49b5d3103075ada70739dae2a6d6809721f6d
parente2e7d7f7f45cba1a03cf7ca37aa13f9daea6e96c (diff)
Fix frog-menu-read result for actions when passing an alistexternals/frog-menu
Thanks to @xwl (see #11).
-rw-r--r--frog-menu.el5
1 files changed, 4 insertions, 1 deletions
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))))