summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSean Whitton <spwhitton@spwhitton.name>2021-12-18 15:37:44 -0700
committerSean Whitton <spwhitton@spwhitton.name>2021-12-18 15:37:44 -0700
commit069ff9bcef544f9d00dbddf4a545203f76fb6acf (patch)
tree91bf433e37ae643a46f87b5b855e8a1f617fa32b
parent98e854c6867cadcf166c8bd377bd8ad10391d600 (diff)
downloademacs-069ff9bcef544f9d00dbddf4a545203f76fb6acf.tar.gz
skip loading 00debian.el when it's not readable
-rw-r--r--lisp/startup.el6
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/startup.el b/lisp/startup.el
index 2928e815124..c54ab89b337 100644
--- a/lisp/startup.el
+++ b/lisp/startup.el
@@ -1375,7 +1375,11 @@ please check its value")
;; should check init-file-user instead, since that is already set.
;; See cus-edit.el for an example.
(when site-run-file
- (load "/etc/emacs/site-start.d/00debian.el")
+ (let ((file "/etc/emacs/site-start.d/00debian.el"))
+ ;; When the Emacs build invokes Emacs, such as in the
+ ;; Makefile rule for ${unidir}/emoji-labels.el, 00debian.el
+ ;; might not exist. Should be fine to just skip the load.
+ (when (file-readable-p file) (load file)))
;; Sites should not disable the startup screen.
;; Only individuals should disable the startup screen.
(let ((inhibit-startup-screen inhibit-startup-screen))