[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/frog-menu 18613c5 1/3: Add frog version of completing-r
From: |
Clemens Radermacher |
Subject: |
[elpa] externals/frog-menu 18613c5 1/3: Add frog version of completing-read-function |
Date: |
Wed, 1 May 2019 08:36:24 -0400 (EDT) |
branch: externals/frog-menu
commit 18613c5871fde44406ec2c5787c4eac89655d234
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>
Add frog version of completing-read-function
---
frog-menu.el | 8 ++++++++
1 file changed, 8 insertions(+)
diff --git a/frog-menu.el b/frog-menu.el
index 8dbdb3f..b6b1bbc 100644
--- a/frog-menu.el
+++ b/frog-menu.el
@@ -607,6 +607,14 @@ COLLECTION are the arguments from `frog-menu-read'."
(replace-regexp-in-string "\\(: ?\\)?\\'" ": " prompt))
collection args))
+(defun frog-menu-completing-read-function (prompt collection &rest _)
+ "Can be used as `completing-read-function'
+
+For now all arguments other than PROMPT and COLLECTION are
+ignored. COLLECTION has to use a format `frog-menu-read' can
+understand."
+ (frog-menu-read prompt collection))
+
;;;###autoload
(defun frog-menu-call (cmds &optional prompt)