forked from mirrors/nixpkgs
emacsWithPackages: prevent the UI showing prematurely during startup
This change makes the wrapper script avoid displaying echo area messages during startup. This helps prevent split second UI glitches early in the startup process. The messages itself will still be logged and therefore will not hamper inspection for debugging purposes.
This commit is contained in:
parent
2852f58cbf
commit
7208e57cf6
|
@ -147,9 +147,15 @@ runCommand
|
||||||
# Begin the new site-start.el by loading the original, which sets some
|
# Begin the new site-start.el by loading the original, which sets some
|
||||||
# NixOS-specific paths. Paths are searched in the reverse of the order
|
# NixOS-specific paths. Paths are searched in the reverse of the order
|
||||||
# they are specified in, so user and system profile paths are searched last.
|
# they are specified in, so user and system profile paths are searched last.
|
||||||
|
#
|
||||||
|
# NOTE: Avoid displaying messages early at startup by binding
|
||||||
|
# inhibit-message to t. This would prevent the Emacs GUI from showing up
|
||||||
|
# prematurely. The messages would still be logged to the *Messages*
|
||||||
|
# buffer.
|
||||||
rm -f $siteStart $siteStartByteCompiled $subdirs $subdirsByteCompiled
|
rm -f $siteStart $siteStartByteCompiled $subdirs $subdirsByteCompiled
|
||||||
cat >"$siteStart" <<EOF
|
cat >"$siteStart" <<EOF
|
||||||
(load-file "$emacs/share/emacs/site-lisp/site-start.el")
|
(let ((inhibit-message t))
|
||||||
|
(load-file "$emacs/share/emacs/site-lisp/site-start.el"))
|
||||||
(add-to-list 'load-path "$out/share/emacs/site-lisp")
|
(add-to-list 'load-path "$out/share/emacs/site-lisp")
|
||||||
(add-to-list 'exec-path "$out/bin")
|
(add-to-list 'exec-path "$out/bin")
|
||||||
${optionalString nativeComp ''
|
${optionalString nativeComp ''
|
||||||
|
|
Loading…
Reference in a new issue