procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

eval-command-interactive-spec: Shorten code

Browse source 
* 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.
This commit is contained in:
Sean Whitton 2023-06-06 12:15:25 +01:00
parent 7ca1d782f5
commit d751915ef4
1 changed files with 1 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/subr-x.el
View file

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