; Avoid byte-compiler warning in startup.el

* lisp/startup.el (startup--load-user-init-file): Avoid
byte-compiler warnings about 'comp-eln-to-el-h'.  (Bug#59334)
This commit is contained in:
Eli Zaretskii 2022-11-19 14:43:51 +02:00
parent 46ceb2ac4b
commit 9ad3fce4a5

View file

@ -1076,7 +1076,10 @@ init-file, or to a default value if loading is not possible."
(sit-for 1))
(setq user-init-file source)))
;; Else, perhaps the user init file was compiled
(when (equal (file-name-extension user-init-file) "eln")
(when (and (equal (file-name-extension user-init-file) "eln")
;; The next test is for builds without native
;; compilation support or builds with unexec.
(boundp 'comp-eln-to-el-h))
(if-let (source (gethash (file-name-nondirectory user-init-file)
comp-eln-to-el-h))
;; source exists or the .eln file would not load