From 0f12885152c379425832cce4d10649da387b4bf8 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Wed, 18 Mar 2015 03:17:43 -0400 Subject: [PATCH] Better 'toggle-transparency --- core/defuns-ui.el | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/core/defuns-ui.el b/core/defuns-ui.el index 9e6246171..6d20c64b9 100644 --- a/core/defuns-ui.el +++ b/core/defuns-ui.el @@ -27,9 +27,11 @@ ;;;###autoload (defun toggle-transparency () (interactive) - (if (/= (frame-parameter nil 'alpha) 96) - (set-frame-parameter nil 'alpha 96) - (set-frame-parameter nil 'alpha 0))) + (let* ((alpha (frame-parameter nil 'alpha)) + (alpha-val (if (listp alpha) (car alpha) alpha))) + (if (/= alpha-val 97) + (set-frame-parameter nil 'alpha 97) + (set-frame-parameter nil 'alpha 0)))) ;;;###autoload (defun toggle-theme ()