emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

fix(lib): only use alpha-background on pgtk builds

Browse source 
Fix: #7721
This commit is contained in:
Henrik Lissner 2024-03-10 20:42:02 -04:00
parent 3820ead9e3
commit 3b405c8d81
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
1 changed files with 12 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lisp/lib/ui.el
View file

@ -175,15 +175,18 @@ Use `winner-undo' to undo this. Alternatively, use
"Interactively change the current frame's opacity. "Interactively change the current frame's opacity.
OPACITY is an integer between 0 to 100, inclusive." OPACITY is an integer between 0 to 100, inclusive."
(interactive (interactive '(interactive))
(list (read-number "Opacity (0-100): " (let* ((parameter
(or (frame-parameter (if (eq window-system 'pgtk)
nil (if (> emacs-major-version 28) 'alpha-background
'alpha-background 'alpha)) 'alpha))
100)))) (opacity
(set-frame-parameter nil (if (> emacs-major-version 28) (if (eq opacity 'interactive)
'alpha-background 'alpha) (read-number "Opacity (0-100): "
opacity)) (or (frame-parameter nil parameter)
100))
opacity)))
(set-frame-parameter nil parameter opacity)))
(defvar doom--narrowed-base-buffer nil) (defvar doom--narrowed-base-buffer nil)
;;;###autoload ;;;###autoload