From: Sean Whitton <spwhitton@spwhitton.name>
Date: Tue, 6 Jun 2023 11:15:25 +0000 (+0100)
Subject: eval-command-interactive-spec: Shorten code
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d751915ef4c10f2dc10555c404fac3c981320b4f;p=emacs.git

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.
---

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)