diff options
| author | Eli Zaretskii | 2022-11-19 14:43:51 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2022-11-19 14:43:51 +0200 |
| commit | 9ad3fce4a5c902a2c23b0ef2e7a8a5cae5cc3876 (patch) | |
| tree | ff2da880f41ec99f58db3dde4972c2f10c9d0a22 | |
| parent | 46ceb2ac4bceec9c5fb55d9d02a34e2c78136cf3 (diff) | |
| download | emacs-9ad3fce4a5c902a2c23b0ef2e7a8a5cae5cc3876.tar.gz emacs-9ad3fce4a5c902a2c23b0ef2e7a8a5cae5cc3876.zip | |
; 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)
| -rw-r--r-- | lisp/startup.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/startup.el b/lisp/startup.el index d7d87433362..5e0a47d3f8f 100644 --- a/lisp/startup.el +++ b/lisp/startup.el | |||
| @@ -1076,7 +1076,10 @@ init-file, or to a default value if loading is not possible." | |||
| 1076 | (sit-for 1)) | 1076 | (sit-for 1)) |
| 1077 | (setq user-init-file source))) | 1077 | (setq user-init-file source))) |
| 1078 | ;; Else, perhaps the user init file was compiled | 1078 | ;; Else, perhaps the user init file was compiled |
| 1079 | (when (equal (file-name-extension user-init-file) "eln") | 1079 | (when (and (equal (file-name-extension user-init-file) "eln") |
| 1080 | ;; The next test is for builds without native | ||
| 1081 | ;; compilation support or builds with unexec. | ||
| 1082 | (boundp 'comp-eln-to-el-h)) | ||
| 1080 | (if-let (source (gethash (file-name-nondirectory user-init-file) | 1083 | (if-let (source (gethash (file-name-nondirectory user-init-file) |
| 1081 | comp-eln-to-el-h)) | 1084 | comp-eln-to-el-h)) |
| 1082 | ;; source exists or the .eln file would not load | 1085 | ;; source exists or the .eln file would not load |