사용중인 w32 emacs 환경설정 파일

C:\Documents and Settings\account\site-start.el에 아래의 내용 추가

;theme
(add-to-list 'load-path "C:/Program Files/Emacs/site-lisp/color-theme-6.6.0")
(require 'color-theme)
(eval-after-load "color-theme"
  '(progn
     (color-theme-initialize)
     (color-theme-midnight)))

;font
(set-language-environment "Korean")
(create-fontset-from-fontset-spec
"-outline-DejaVu Sans Mono-normal-r-*-*-12-*-*-*-c-*-fontset-most,
ascii:-outline-DejaVu Sans Mono-normal-r-*-*-12-*-*-*-c-*-iso8859-1,
korean-ksc5601:-outline-굴림체-normal-r-*-*-12-*-*-*-p-*-ksc5601.1987*-*" t)
(set-face-font 'default "fontset-most")

;frame
(menu-bar-mode nil)
(tool-bar-mode nil)
(scroll-bar-mode nil)

;short cut
(fset 'find-next-tag "\C-u\256") ;macro for C-u M-.
(fset 'find-prev-tag "\C-u-\256") ;macro for C-u - M-.
(global-set-key "\M-]" 'find-next-tag)
(global-set-key "\M-[" 'find-prev-tag)

;etc
(setq-default truncate-lines t)
(setq make-backup-files nil)
(setq transient-mark-mode t)
(setq default-input-method "korean-hangul3")
(setq default-korean-keybodard "3")
(global-cwarn-mode 1)
(iswitchb-mode)
(which-function-mode)
(when (fboundp 'global-font-lock-mode)
  (global-font-lock-mode t))