[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 5276519255 1/3: Fix cl byte-compile warning in cl-loaddefs.el
From: |
Lars Ingebrigtsen |
Subject: |
master 5276519255 1/3: Fix cl byte-compile warning in cl-loaddefs.el |
Date: |
Sun, 31 Jul 2022 05:39:06 -0400 (EDT) |
branch: master
commit 5276519255c27e7dd01cbc3fea00d1c29f44d514
Author: Lars Ingebrigtsen <larsi@gnus.org>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Fix cl byte-compile warning in cl-loaddefs.el
* 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.
---
lisp/emacs-lisp/cl-macs.el | 3 +++
lisp/emacs-lisp/loaddefs-gen.el | 1 +
2 files changed, 4 insertions(+)
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el
index 6646167b92..727b3098e3 100644
--- a/lisp/emacs-lisp/cl-macs.el
+++ b/lisp/emacs-lisp/cl-macs.el
@@ -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 defun-declarations-alist)))
+;;;###cl-autoload
(defun cl--optimize (f _args &rest qualities)
"Serve `cl-optimize' in function declarations.
Example:
@@ -3335,6 +3336,7 @@ the form NAME which is a shorthand for (NAME NAME)."
:around #'cl--pcase-mutually-exclusive-p))
+;;;###cl-autoload
(defun cl-struct-sequence-type (struct-type)
"Return the sequence used to build STRUCT-TYPE.
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")
+;;;###cl-autoload
(defun cl-struct-slot-offset (struct-type slot-name)
"Return the offset of slot SLOT-NAME in STRUCT-TYPE.
The returned zero-based slot index is relative to the start of
diff --git a/lisp/emacs-lisp/loaddefs-gen.el b/lisp/emacs-lisp/loaddefs-gen.el
index 261e44aece..e273381222 100644
--- a/lisp/emacs-lisp/loaddefs-gen.el
+++ b/lisp/emacs-lisp/loaddefs-gen.el
@@ -481,6 +481,7 @@ FILE's name."
(insert "\n;;; End of scraped data\n\n")
(generate-lisp-file-trailer
file :provide (and (stringp feature) feature)
+ :compile t
:inhibit-provide (not feature))
(buffer-string))))