[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/frog-menu 6ac3c52: Allow optional prompt for frog-menu-
From: |
Clemens Radermacher |
Subject: |
[elpa] externals/frog-menu 6ac3c52: Allow optional prompt for frog-menu-call |
Date: |
Tue, 23 Apr 2019 15:00:24 -0400 (EDT) |
branch: externals/frog-menu
commit 6ac3c528a40eed45558c8c276bb3bbb0c9ac9b7f
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>
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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/frog-menu 6ac3c52: Allow optional prompt for frog-menu-call,
Clemens Radermacher <=