Skip to content

Commit

Permalink
revert(early-init): minor simplification (not working on Emacs 28.2)
Browse files Browse the repository at this point in the history
This reverts commit d5e9365.
  • Loading branch information
abougouffa committed May 1, 2024
1 parent 48395a2 commit b88214b
Showing 1 changed file with 5 additions and 3 deletions.
8 changes: 5 additions & 3 deletions early-init.el
Original file line number Diff line number Diff line change
Expand Up @@ -36,9 +36,11 @@
;; set, Emacs will load the default GUI (without background alpha), and when it
;; is set but the value is not valid, MinEmacs will fallback to the default
;; alpha of 93%.
(when-let* ((alpha (and (>= emacs-major-version 29) (getenv "MINEMACS_ALPHA")))
(alpha (string-to-number alpha)))
(push (cons 'alpha-background (if (or (zerop alpha) (> alpha 100)) 93 alpha)) default-frame-alist))
(when (>= emacs-major-version 29)
(when-let* ((alpha (getenv "MINEMACS_ALPHA"))
(alpha (string-to-number alpha)))
(push (cons 'alpha-background (if (or (zerop alpha) (> alpha 100)) 93 alpha))
default-frame-alist)))

;; Load MinEmacs variables from the `me-vars' core module.
(load (expand-file-name "core/me-vars.el" (file-name-directory (file-truename load-file-name))) nil t)
Expand Down

0 comments on commit b88214b

Please sign in to comment.