mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-06 06:20:55 -08:00
Code Issues Projects Releases Wiki Activity

Fix cl byte-compile warning in cl-loaddefs.el

Browse source 
* lisp/emacs-lisp/cl-macs.el (cl--optimize)
(cl-struct-sequence-type, cl-struct-slot-offset): Autoload since
they are referred to by code in cl-loaddefs.el.
This commit is contained in:
Lars Ingebrigtsen 2022-07-31 11:33:47 +02:00
parent 107f832577
commit 5276519255
2 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/emacs-lisp/cl-macs.el
View file

@ -2559,6 +2559,7 @@ values. For compatibility, (cl-values A B C) is a synonym for (list A B C).
(push x macro-declarations-alist) (push x macro-declarations-alist)
(push x defun-declarations-alist))) (push x defun-declarations-alist)))
;;;###cl-autoload
(defun cl--optimize (f _args &rest qualities) (defun cl--optimize (f _args &rest qualities)
"Serve `cl-optimize' in function declarations. "Serve `cl-optimize' in function declarations.
Example: Example:
@ -3335,6 +3336,7 @@ the form NAME which is a shorthand for (NAME NAME)."
:around #'cl--pcase-mutually-exclusive-p)) :around #'cl--pcase-mutually-exclusive-p))
;;;###cl-autoload
(defun cl-struct-sequence-type (struct-type) (defun cl-struct-sequence-type (struct-type)
"Return the sequence used to build STRUCT-TYPE. "Return the sequence used to build STRUCT-TYPE.
STRUCT-TYPE is a symbol naming a struct type. Return values are STRUCT-TYPE is a symbol naming a struct type. Return values are
@ -3374,6 +3376,7 @@ slots skipped by :initial-offset may appear in the list."
(define-error 'cl-struct-unknown-slot "struct has no slot") (define-error 'cl-struct-unknown-slot "struct has no slot")
;;;###cl-autoload
(defun cl-struct-slot-offset (struct-type slot-name) (defun cl-struct-slot-offset (struct-type slot-name)
"Return the offset of slot SLOT-NAME in STRUCT-TYPE. "Return the offset of slot SLOT-NAME in STRUCT-TYPE.
The returned zero-based slot index is relative to the start of The returned zero-based slot index is relative to the start of

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

@ -481,6 +481,7 @@ FILE's name."
(insert " \n;;; End of scraped data\n\n") (insert " \n;;; End of scraped data\n\n")
(generate-lisp-file-trailer (generate-lisp-file-trailer
file :provide (and (stringp feature) feature) file :provide (and (stringp feature) feature)
:compile t
:inhibit-provide (not feature)) :inhibit-provide (not feature))
(buffer-string)))) (buffer-string))))