~fumi/ChangeLog

Meadowについて語ってくれなスレ2
http://pc2.2ch.net/test/read.cgi/software/1038091071/743

;; 起動時の白画面をできるだけ見せない設定
;; ~/.emacs の頭の方に書いて、RunMW32.exe --iconic で起動するとよい。
;; ~/.emacs にエラーがある場合には --debug-init オプションで起動しないと
;; ウィンドウが出てこなくなるので注意すること

;; 起動時のフレームの初期位置
(setq my-initial-frame-geometry '((top . 80)
                                  (left . 20)
                                  (width . 80)
                                  (height . 50)))

;; フレームのフォントや配置が変更される過程をなるべく見えなくする
(if window-system
    (progn
      ;; 初期フレームを不可視にする
      (if (null init-file-debug)
          (make-frame-invisible (car (frame-list)) t))
      ;; 設定が終わったら可視状態に戻す
      (add-hook 'window-setup-hook
                (lambda ()
                  (make-frame-visible)
                  (modify-frame-parameters nil my-initial-frame-geometry)
                  ))))