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

; * lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate): Doc fix.

Browse source
This commit is contained in:
Eli Zaretskii 2025-11-06 08:01:32 +02:00
parent 34ab8abdd2
commit 58a2c2494d
1 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -594,17 +594,17 @@ If COMPILE, don't include a \"don't compile\" cookie."
;;;###autoload
(defun loaddefs-generate (dirs output-file &optional excluded-files
extra-data include-package-version
generate-full)
"Generate loaddefs files for Lisp files in one or more directories given by DIR.
DIR can be either a single directory or a list of directories.
extra-data include-package-version
generate-full)
"Generate loaddefs files for Lisp files in directories given by DIRS.
DIRS can be either a single directory or a list of directories.
The autoloads will be written to OUTPUT-FILE. If any Lisp file
binds `generated-autoload-file' as a file-local variable, write
its autoloads into the specified file instead.
The function does NOT recursively descend into subdirectories of the
directories specified by DIR.
This function does NOT recursively descend into subdirectories of the
directories specified by DIRS.
Optional argument EXCLUDED-FILES, if non-nil, should be a list of
files, such as preloaded files, whose autoloads should not be written
@ -636,9 +636,9 @@ instead of just updating them with the new/changed autoloads."
(updating (and (file-exists-p output-file) (not generate-full)))
(defs nil))
;; Allow the excluded files to be relative.
;; We used to do (expand-file-name file dir), which strangely enough
;; doesn't signal an error when DIR is a list but does something weird
;; instead, so let's preserve the old behavior when DIR is a string,
;; We used to do (expand-file-name file dirs), which strangely enough
;; doesn't signal an error when DIRS is a list but does something weird
;; instead, so let's preserve the old behavior when DIRS is a string,
;; even tho it's different from what we do when it's a list.
(let ((basedir (if (stringp dirs) dirs)))
(setq excluded-files