fix(transwin): initial alpha-level

jcs-elpa · Sep 21, 2022 · e4a1fe5 · e4a1fe5
1 parent da030eb
commit e4a1fe5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/transwin.el b/transwin.el
@@ -93,7 +93,7 @@
 
 (defun transwin--delta-frame-transparent (del-trans)
   "Delta change the frame transparency by a certain percentage, DEL-TRANS."
-  (let ((alpha (frame-parameter nil transwin-parameter-alpha))
+  (let ((alpha (or (frame-parameter nil transwin-parameter-alpha) 100))
         (current-transparency transwin-delta-alpha))
 
     (setq current-transparency