[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/frog-menu 5d7bf49: Allow to pass commands which are not
From: |
Clemens Radermacher |
Subject: |
[elpa] externals/frog-menu 5d7bf49: Allow to pass commands which are not functions |
Date: |
Tue, 23 Apr 2019 13:58:34 -0400 (EDT) |
branch: externals/frog-menu
commit 5d7bf49351515ba67996226c3cab14d9691360b2
Author: Clemens Radermacher <address@hidden>
Commit: Clemens Radermacher <address@hidden>
Allow to pass commands which are not functions
---
frog-menu.el | 4 +---
1 file changed, 1 insertion(+), 3 deletions(-)
diff --git a/frog-menu.el b/frog-menu.el
index 5977980..e5f5b4a 100644
--- a/frog-menu.el
+++ b/frog-menu.el
@@ -595,9 +595,7 @@ ACTIONS is the argument of `frog-menu-read'."
CMDS is a list of command symbols to choose from."
(let ((cmd (intern-soft (frog-menu-read "" (mapcar #'symbol-name cmds)))))
- (unless (commandp cmd)
- (user-error "%s is no a kown command" cmd))
- (call-interactively cmd)))
+ (command-execute cmd)))
;;;###autoload
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] externals/frog-menu 5d7bf49: Allow to pass commands which are not functions,
Clemens Radermacher <=