[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master d751915ef4c: eval-command-interactive-spec: Shorten code
From: |
Sean Whitton |
Subject: |
master d751915ef4c: eval-command-interactive-spec: Shorten code |
Date: |
Tue, 6 Jun 2023 07:17:20 -0400 (EDT) |
branch: master
commit d751915ef4c10f2dc10555c404fac3c981320b4f
Author: Sean Whitton <spwhitton@spwhitton.name>
Commit: Sean Whitton <spwhitton@spwhitton.name>
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master d751915ef4c: eval-command-interactive-spec: Shorten code,
Sean Whitton <=