emacs のインストール（Windows 上）

;; w32-ime
(w32-ime-initialize)
(setq default-input-method "W32-IME")
(setq-default w32-ime-mode-line-state-indicator "[Aa]")
(setq w32-ime-mode-line-state-indicator-list '("[Aa]" "[あ]" "[Aa]"))
(setq w32-ime-buffer-switch-p t)
;; フォントサイズ
(set-fontset-font "fontset-standard"
   		  'ascii
   		  (font-spec :family "VL Gothic" :size 20) nil 'prepend)  ;; ここでサイズを指定
(set-fontset-font "fontset-standard"
 		  'japanese-jisx0213.2004-1
  		  (font-spec :family "VL Gothic") nil 'prepend)
;; mozc のロードと，日本語文字コード
(require 'mozc)
(load-library "mozc")
(set-language-environment "Japanese")
(setq default-input-method "japanese-mozc")
(global-set-key [zenkaku-hankaku] 'toggle-input-method)
(prefer-coding-system 'shift_jis)
(set-file-name-coding-system 'cp932)
(set-keyboard-coding-system 'cp932)
(set-terminal-coding-system 'cp932) 
;; キーバインド. CTRL + Z を無視．CTRL + H でバックスペース．
(global-unset-key "\C-z")
(keyboard-translate ?\C-h ?\C-?)
;; 表示を単純化（スタートアップメッセージなし．スクラッチは空．ツールバー無し，
;; スクロールバーなし）．，ベル無し．
(setq ring-bell-function 'ignore)
(setq inhibit-startup-message t)
(setq initial-scratch-message "") 
(tool-bar-mode -1)
(menu-bar-mode 0)
(set-scroll-bar-mode nil)
(setq frame-title-format (format "%%f - Emacs@%s" (system-name)))
;; 行番号表示
(global-linum-mode t)
(column-number-mode t)
;; かっこの対応の表示に関する設定
;; (show-paren-mode t)
;; (setq show-paren-delay 0)
;; (setq show-paren-style 'expression)
;; 余計な空白を色付きで表示
(setq-default show-trailing-whitespace t)
(set-face-background 'trailing-whitespace "#b14770")
;; yes, no は，y, n で済むように
(fset 'yes-or-no-p 'y-or-n-p)
;; 履歴
(recentf-mode t)
(setq recentf-max-menu-items 30)
(setq recentf-max-saved-items 5000)
;; スクロールの量
(setq scroll-conservatively 35
      scroll-margin 0
      scroll-step 1)
(setq comint-scroll-show-maximum-output t)
;; タブ
(electric-indent-mode -1)
(setq-default indent-tabs-mode nil)
(custom-set-variables '(tab-width 4))
;; 補完
(when (require 'auto-complete-config nil t)
   (ac-config-default))
(setq text-mode-hook 'turn-off-auto-fill)
;; 大きさ
(setq initial-frame-alist
   (append (list
      '(top . 25)
      '(left . 10)
      '(width . 60)  
      '(height . 30)) 
    initial-frame-alist))
(setq default-frame-alist initial-frame-alist)