(if (boundp 'window-system) (setq initial-frame-alist (append (list '(foreground-color . "azure3") ;; 文字が白 '(background-color . "black") ;; 背景は黒 '(border-color . "black") '(mouse-color . "white") '(cursor-color . "white") '(cursor-type . box) '(menu-bar-lines . 1) '(vertical-scroll-bars . nil) ;;スクロールバーはいらない '(width . 100) ;; ウィンドウ幅 '(height . 35) ;; ウィンドウの高さ '(top . 60) ;;表示位置 '(left . 140) ;;表示位置 '(font . "MS Gothic 12") ;;フォント ) initial-frame-alist))) (setq default-frame-alist initial-frame-alist)
'(font . "MS Gothic 12") を追加した。