新しめの Emacs をフルスクリーンにする設定

既出も良いところですが、Goolge Groups 内の Carbon Emacs グループに新しめの Emacs (含む Carbon) をフルスクリーンにする設定が流れていましたので書き留めておきます。
Re: the command for full screen never works

手元の .emacs にも取り入れてみました。

(when window-system
  (setq-default line-spacing
                (if (featurep 'mac-carbon) nil 2))
  (setq default-frame-alist
        (append
         '((foreground-color . "gray")
           (background-color . "black")
           (cursor-color  . "blue")
           (alpha . (90 95)))
         default-frame-alist))

  (setq initial-frame-alist
        (append
         '((fullscreen . fullboth))
         default-frame-alist))

  ;; http://groups.google.com/group/carbon-emacs/msg/287876a967948923
  (defun toggle-fullscreen ()
    (interactive)
    (set-frame-parameter nil
                         'fullscreen
                         (if (frame-parameter nil
                                              'fullscreen)
                             nil 'fullboth)))

  (global-set-key [(meta return)] 'toggle-fullscreen))

initial-frame-alist だけ fullscreen 設定にしてあります。lookup などが開くフレームは小さいままでいいかなーと思いまして。