From b193a78a6f3ee254c8eeb6bb612cefd348683a9d Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 21 Nov 2025 10:46:13 -0500 Subject: [PATCH] (loaddefs--defining-macros): Weed out a few more entries * lisp/emacs-lisp/loaddefs-gen.el (loaddefs--defining-macros): Remove `define-skeleton`, `define-derived-mode`, and `define-generic-mode` since their `autoload-macro expand` property is now preloaded. --- lisp/emacs-lisp/loaddefs-gen.el | 11 +++-------- 1 file changed, 3 insertions(+), 8 deletions(-) diff --git a/lisp/emacs-lisp/loaddefs-gen.el b/lisp/emacs-lisp/loaddefs-gen.el index 3c42bb322a5..e24452ed8ed 100644 --- a/lisp/emacs-lisp/loaddefs-gen.el +++ b/lisp/emacs-lisp/loaddefs-gen.el @@ -154,8 +154,7 @@ scanning for autoloads and will be in the `load-path'." ;; they request such expansion and produce suitable output (e.g. by ;; employing :autoload-end to omit unneeded forms). (defconst loaddefs--defining-macros - '( define-skeleton define-derived-mode define-compilation-mode - define-generic-mode + '( define-compilation-mode cl-defun defun* cl-defmacro defmacro* define-overloadable-function transient-define-prefix transient-define-suffix transient-define-infix transient-define-argument transient-define-group)) @@ -256,9 +255,7 @@ expand)' among their `declare' forms." 'transient-define-infix 'transient-define-argument 'transient-define-group) (nth 2 form)) - ('define-skeleton '(&optional str arg)) - ((or 'define-generic-mode 'define-derived-mode - 'define-compilation-mode) + ('define-compilation-mode nil) (_ t))) (body (nthcdr (or (function-get car 'doc-string-elt) 3) form)) @@ -270,9 +267,7 @@ expand)' among their `declare' forms." (loaddefs-generate--shorten-autoload `(autoload ,(if (listp name) name (list 'quote name)) ,file ,doc - ,(or (and (memq car '( define-skeleton define-derived-mode - define-generic-mode - transient-define-prefix + ,(or (and (memq car '( transient-define-prefix transient-define-suffix transient-define-infix transient-define-argument