merge: pull request #7389 from hpfr/misc

2023-09-06 14:28:57 +02:00 · 2023-09-06 14:28:57 +02:00 · af5add0e9e
commit af5add0e9e
parent 3cafa0223e 62074bfcbb
11 changed files with 44 additions and 28 deletions
--- a/lisp/lib/ui.el
+++ b/lisp/lib/ui.el
@ -177,9 +177,13 @@ Use `winner-undo' to undo this. Alternatively, use
 OPACITY is an integer between 0 to 100, inclusive."
  (interactive
   (list (read-number "Opacity (0-100): "
-                      (or (frame-parameter nil 'alpha)
+                      (or (frame-parameter
+                           nil (if (> emacs-major-version 28)
+                                   'alpha-background 'alpha))
                          100))))
-  (set-frame-parameter nil 'alpha opacity))
+  (set-frame-parameter nil (if (> emacs-major-version 28)
+                               'alpha-background 'alpha)
+                       opacity))

 (defvar doom--narrowed-base-buffer nil)
 ;;;###autoload