Carbon Emacsでフルスクリーンをトグルする

;; fullscreen
(defun toggle-fullscreen ()
  (interactive)
  (set-frame-parameter nil 'fullscreen (if (frame-parameter nil 'fullscreen)
                                           nil
                                           'fullboth)))
(global-set-key [(meta return)] 'toggle-fullscreen)

これでM-return押すとフルスクリーンなったり，戻したりできます．

http://matsuesns.jp/blog/blog.php?key=2821にも載ってるけど，書き方が好きじゃなくて自分なりにこうしたみたい．
あんまり覚えてない