Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 09:14:18 +00:00
Code Issues Projects Releases Packages Wiki Activity

Load 'byte-recompile-file' to process User Lisp directory

Browse source 
* lisp/startup.el (byte-recompile-file): Declare 'byte-recompile-file'.
(prepare-user-lisp): Load bytecomp if necessary.  (Bug#79997)
This commit is contained in:
Philip Kaludercic 2025-12-14 16:50:49 +01:00
parent 699fb56b4e
commit 8447ebb06f
No known key found for this signature in database
1 changed files with 4 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/startup.el
View file

@ -1236,6 +1236,9 @@ directories that do not contain Lisp files."
:type '(choice (repeat (string :tag "Directory name")))
:version "31.1")
(declare-function byte-recompile-file "bytecomp"
(filename &optional force arg load))
(defun prepare-user-lisp (&optional just-activate autoload-file force)
"Byte-compile, scrape autoloads and prepare files in `user-lisp-directory'.
Write the autoload file to AUTOLOAD-FILE. If JUST-ACTIVATE is non-nil,
@ -1246,6 +1249,7 @@ If FORCE is non-nil, or if invoked interactively with a prefix argument,
re-create the entire autoload file and byte-compile everything
unconditionally."
(interactive (list nil nil current-prefix-arg))
(unless just-activate (require 'bytecomp))
(unless (file-directory-p user-lisp-directory)
(error "No such directory: %S" user-lisp-directory))
(unless autoload-file