(custom-set-variables
;; custom-set-variables was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
'(column-number-mode t)
'(inhibit-startup-buffer-menu t)
'(inhibit-startup-screen t)
'(save-place t nil (saveplace))
'(scroll-bar-mode nil)
'(show-paren-mode t)
'(size-indication-mode t)
'(tooltip-mode nil)
'(uniquify-buffer-name-style (quote forward) nil (uniquify)))
(custom-set-faces
;; custom-set-faces was added by Custom.
;; If you edit it by hand, you could mess it up, so be careful.
;; Your init file should contain only one such instance.
;; If there is more than one, they won't work right.
)
(setq make-backup-files nil) ;; 백업 파일을 자동으로 만들지 않는다.
(setq inverse-video t)
(setq echo-keystrokes t)
(setq blink-matching-paren t) ;; 자동으로 괄호 매칭 기능 활성화
(setq blink-maching-delay 2) ;; 2초
;added 20090906 [B]--------------------------------------------------------------------------------
(tool-bar-mode nil) ; No toolbar
(setq show-paren-style 'expression) ; Highlight text between parens
(global-hl-line-mode t) ; Highlight cursor line
(defalias 'yes-or-no-p 'y-or-n-p) ; y/n instead of yes/no
(icomplete-mode t) ; Completion in mini-buffer
(global-set-key "\C-x\C-b" 'buffer-menu) ; CxCb puts point on buffer list
(desktop-save-mode t) ; Save session before quitting
;(speedbar t) ; Quick file access with bar
(iswitchb-mode t) ;
(which-function-mode t)
(setq ispell-dictionary "english") ; Set ispell dictionary
(setq grep-command "grep -i -nH -e ") ; Set grep command options
;added 20090906 [E]--------------------------------------------------------------------------------
(setq default-frame-alist
'((top . 100)
(left . 150)
(Width . 90)
(height . 40)
(cursor-color . "white")
(cursor-type . box)
(foreground-color . "white")
(background-color . "black")
(font . "-outline-굴림체-normal-r-normal-normal-12-97-96-96-c-*-iso10646-1")))
;(font . "-*-Courier-normal-r-*-*-13-*-*-*-c-*-iso8859-1")))
;(font . "fontset-mook")))
;;라인 바로가기 키 맵핑 (M-g)
(global-set-key "\M-g" 'goto-line)
(define-key minibuffer-local-map [tab] 'minibuffer-complete)
(add-to-list 'load-path "[the path to the python-mode directory]")
(setq auto-mode-alist (cons '("\\.py$" . python-mode) auto-mode-alist))
(setq interpreter-mode-alist (cons '("python" . python-mode)
interpreter-mode-alist))
(autoload 'python-mode "python-mode" "Python editing mode." t)
(global-font-lock-mode t)
(setq font-lock-maximum-decoration t)
(show-paren-mode t) ; turn on paren match highlighting
(column-number-mode t) ;
;;-----------------------------------------------------------------------
(ido-mode t)
(setq ido-enable-flex-matching t) ; fuzzy matching is a must have
;; This tab override shouldn't be necessary given ido's default
;; configuration, but minibuffer-complete otherwise dominates the
;; tab binding because of my custom tab-completion-everywhere
;; configuration.
(add-hook 'ido-setup-hook
(lambda ()
(define-key ido-completion-map [tab] 'ido-complete)))
(autoload 'pymacs-apply "pymacs")
(autoload 'pymacs-call "pymacs")
(autoload 'pymacs-eval "pymacs" nil t)
(autoload 'pymacs-exec "pymacs" nil t)
(autoload 'pymacs-load "pymacs" nil t)
;;(eval-after-load "pymacs"
;; '(add-to-list 'pymacs-load-path YOUR-PYMACS-DIRECTORY"))
(put 'upcase-region 'disabled nil)
(windmove-default-keybindings 'meta) ; 나뉘어진 윈도우를 Alt Key만 이용해서 이동가능
(add-to-list 'load-path "~/.emacs.d/plugins")
;;-----------------------------------------------------------------------
(require 'yasnippet) ;; not yasnippet-bundle
(yas/initialize)
(yas/load-directory "~/.emacs.d/plugins/snippets/")
(setq-default indent-tabs-mode nil) ;; TAB을 공백으로 바꿔준다.
(require 'blank-mode) ;;
;;-----------------------------------------------------------------------
(add-to-list 'auto-mode-alist '("\\.pc$" . c-mode))
(defun my-tabbar-buffer-groups (buffer)
"Return the list of group names BUFFER belongs to.
This function is a custom function for tabbar-mode's tabbar-buffer-groups.
This function group all buffers into 2 groups:
Those user buffer, and those emacs buffer.
Emacs buffer are those starting with “*”."
(with-current-buffer (get-buffer buffer)
(if (string-equal "*" (substring (buffer-name) 0 1))
'("emacs-buffer")
'("user-buffer"))))
(setq tabbar-buffer-groups-function 'my-tabbar-buffer-groups)
(global-set-key (kbd "C-S-") 'tabbar-backward)
(global-set-key (kbd "C-") 'tabbar-forward)
(put 'scroll-left 'disabled nil)
;;-----------------------------------------------------------------------
; 메뉴바 안보이기
(custom-set-variables
'(tool-bar-mode nil nil (tool-bar)))
;;-----------------------------------------------------------------------
; 기본 언어 설정 : 한글
(set-language-environment "Korean")
;; By an unknown contributor
(global-set-key "%" 'match-paren)
(defun match-paren (arg)
"Go to the matching paren if on a paren; otherwise insert %."
(interactive "p")
(cond ((looking-at "\\s\(") (forward-list 1) (backward-char 1))
((looking-at "\\s\)") (forward-char 1) (backward-list 1))
(t (self-insert-command (or arg 1)))))
emacs_configure.zip
http://www.emacswiki.org/emacs/EmacsCrashCode반응형