mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-13 09:30:24 -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

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

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