branch: externals/frog-menu
commit 6ac3c528a40eed45558c8c276bb3bbb0c9ac9b7f
Author: Clemens Radermacher <clem...@posteo.net>
Commit: Clemens Radermacher <clem...@posteo.net>
Allow optional prompt for frog-menu-call
---
frog-menu.el | 9 ++++++---
1 file changed, 6 insertions(+), 3 deletions(-)
diff --git a/frog-menu.el b/frog-menu.el
index e5f5b4a..e27acd6 100644
--- a/frog-menu.el
+++ b/frog-menu.el
@@ -590,11 +590,14 @@ ACTIONS is the argument of `frog-menu-read'."
;;;###autoload
-(defun frog-menu-call (cmds)
+(defun frog-menu-call (cmds &optional prompt)
"Read a command from CMDS and execute it.
-CMDS is a list of command symbols to choose from."
- (let ((cmd (intern-soft (frog-menu-read "" (mapcar #'symbol-name cmds)))))
+CMDS is a list of command symbols to choose from. If PROMPT is
+given it should be a string with prompt information for the
+user."
+ (let ((cmd (intern-soft (frog-menu-read (or prompt "")
+
(mapcar #'symbol-name cmds)))))
(command-execute cmd)))
