From d751915ef4c10f2dc10555c404fac3c981320b4f Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Tue, 6 Jun 2023 12:15:25 +0100 Subject: [PATCH] eval-command-interactive-spec: Shorten code * lisp/emacs-lisp/subr-x.el (eval-command-interactive-spec): Don't reimplement checking for an 'interactive-form symbol property. `interactive-form' already does this. Thanks to Stefan Monnier. --- lisp/emacs-lisp/subr-x.el | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/lisp/emacs-lisp/subr-x.el b/lisp/emacs-lisp/subr-x.el index a7d8f785508..38f85c242c7 100644 --- a/lisp/emacs-lisp/subr-x.el +++ b/lisp/emacs-lisp/subr-x.el @@ -507,9 +507,7 @@ Used by `emacs-authors-mode' and `emacs-news-mode'." (defun eval-command-interactive-spec (command) "Evaluate COMMAND's interactive form and return resultant list. If COMMAND has no interactive form, return nil." - (advice-eval-interactive-spec - (cadr (or (and (symbolp command) (get command 'interactive-form)) - (interactive-form command))))) + (advice-eval-interactive-spec (cadr (interactive-form command)))) (provide 'subr-x) -- 2.39.2