Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

(loaddefs--defining-macros): Weed out a few more entries

Browse source 
* 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.
This commit is contained in:
Stefan Monnier 2025-11-21 10:46:13 -05:00
parent 10961728dc
commit b193a78a6f
1 changed files with 3 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
lisp/emacs-lisp/loaddefs-gen.el
View file

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