From 5c492c5cfbb231c3ab94eb6411d71ec25b83aab5 Mon Sep 17 00:00:00 2001 From: rubikitch Date: Thu, 1 Dec 2016 11:13:53 +0900 Subject: [PATCH] extensions/anything-complete.el: anything-execute-extended-command-execute: Command validity check. --- extensions/anything-complete.el | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) diff --git a/extensions/anything-complete.el b/extensions/anything-complete.el index 018ecbc..dff24e8 100644 --- a/extensions/anything-complete.el +++ b/extensions/anything-complete.el @@ -700,14 +700,15 @@ because it is better implementation." (defun anything-execute-extended-command-execute (cmdname) (let ((sym-com (and (stringp cmdname) (intern-soft cmdname)))) - (when sym-com - (setq this-command sym-com - real-this-command sym-com) - (let ((prefix-arg anything-execute-extended-command-prefix-arg)) - (setq extended-command-history - (cons cmdname - (delete cmdname extended-command-history))) - (command-execute sym-com 'record))))) + (unless (and sym-com (commandp sym-com)) + (error "No such command: %s" cmdname)) + (setq this-command sym-com + real-this-command sym-com) + (let ((prefix-arg anything-execute-extended-command-prefix-arg)) + (setq extended-command-history + (cons cmdname + (delete cmdname extended-command-history))) + (command-execute sym-com 'record)))) (defun anything-execute-extended-command (arg) "Replacement of `execute-extended-command'." -- 2.11.4.GIT