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

lisp/emacs-lisp/loaddefs-gen.el (loaddefs-generate): Fix bug#79694

Browse source
This commit is contained in:
Stefan Monnier 2025-11-07 11:34:32 -05:00
parent 5c18d23d66
commit f356dca70b
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -662,7 +662,14 @@ instead of just updating them with the new/changed autoloads."
(file-attributes file))))
;; If we're scanning for package versions, we want to look
;; at the file even if it's excluded.
(let* ((excluded (member file excluded-files))
(let* ((excluded
;; FIXME: In out-of-tree builds (bug#79694) `excluded.files'
;; (derived via `lisp-directory' from `invocation-directory')
;; may end up using names which don't quite match those of
;; `file' (derived from the command line arguments), w.r.t
;; "c:" vs "C:", so use a test more lax than `member'.
(let ((x (member-ignore-case file excluded-files)))
(and x (file-equal-p file (car x)))))
(package-data
(and include-package-version (if excluded 'only t))))
(when (or package-data (not excluded))