emacs-elpa-diffs
[Top][All Lists]
Advanced

[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)))
 
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]