emacs/gnu.emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2026-09-10 15:56:35 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Compile User Lisp files after adjusting 'load-path'

Browse source 
* lisp/startup.el (prepare-user-lisp): Collect Lisp files in a
list and process these after traversing the file system.  This
is necessary to prevent the compiler from failing to
byte-compile files that depend on other files in the User Lisp
directory because their neighboring dependencies cannot be
located.  (Bug#81304)
This commit is contained in:
Philip Kaludercic 2026-06-29 20:40:33 +02:00
parent 1ac2f60b53
commit b8f71a6011
No known key found for this signature in database
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
lisp/startup.el
View file

@ -1263,22 +1263,23 @@ unconditionally."
(not (string-match-p ignored (file-name-nondirectory dir)))))
(dir (expand-file-name user-lisp-directory))
(backup-inhibited t)
(dirs (list dir)))
(dirs (list dir)) (files '()))
(add-to-list 'load-path (directory-file-name dir))
(dolist (file (directory-files-recursively dir "" t pred t))
(cond
((and (file-regular-p file) (string-suffix-p ".el" file))
(unless just-activate
(with-demoted-errors "Error while compiling: %S"
(byte-recompile-file file force 0)
(when (native-comp-available-p)
(native-compile-async file)))))
(push file files))
((and (file-directory-p file)
(not (string-match-p ignored (file-name-nondirectory file))))
(add-to-list 'load-path (directory-file-name file))
(push file dirs))))
(unless just-activate
(loaddefs-generate dirs autoload-file nil nil nil force))
(loaddefs-generate dirs autoload-file nil nil nil force)
(dolist (file files)
(with-demoted-errors "Error while compiling: %S"
(byte-recompile-file file force 0)
(when (native-comp-available-p)
(native-compile-async file)))))
(when (file-exists-p autoload-file)
(load autoload-file nil t))))