フレームを半透明にするコマンド

carbonemacsで半透明に切り替えるコマンドとして使っています。
他のEmacsで同じように動くかは不明です。

(defun ik:toggle-opacity ()
  (interactive)
  (when window-system
    (ignore-errors
      (if (= (assoc-default 'alpha (frame-parameters)) 100)
          (set-frame-parameter nil 'alpha 80)
        (set-frame-parameter nil 'alpha 100)))))