emacs on gentoo. 한글 문제.

------------------
;;; add Mule-UCS to load-path

(add-to-list 'load-path "/usr/share/emacs/site-lisp/mule-ucs")

(let* ((locale (or (getenv "LC_ALL")

(getenv "LC_CTYPE")

(getenv "LANG")))

(lang-region (and locale

(substring locale 0 (min 5 (length locale)))))

(lang (and lang-region

(substring lang-region 0 (min 2 (length lang-region))))))

(cond ((equal lang "ja")

(set-language-environment "Japanese"))

((equal lang "ko")

(set-language-environment "Korean"))

((equal lang-region "zh_CN")

(set-language-environment "Chinese-GB"))

((equal lang-region "zh_TW")

(set-language-environment "Chinese-BIG5")))

(cond ((equal locale-coding-system 'utf-8)

(when (member lang '("ja" "ko" "zh"))

;; CJK utf-8 locale needs Mule-UCS

(require 'un-define))

(set-default-coding-systems 'utf-8)

(set-terminal-coding-system 'utf-8)

(set-keyboard-coding-system 'utf-8))

((equal lang "ja")

(set-default-coding-systems 'euc-jp)

(set-terminal-coding-system 'euc-jp)

(set-keyboard-coding-system 'euc-jp))

((equal lang "ko")

(set-default-coding-systems 'euc-kr)

(set-terminal-coding-system 'euc-kr)

(set-keyboard-coding-system 'euc-kr))

((equal lang-region "zh_CN")

(set-default-coding-systems 'cn-gb-2312)

(set-terminal-coding-system 'cn-gb-2312)

(set-keyboard-coding-system 'cn-gb-2312))

((equal lang-region "zh_TW")

(set-default-coding-systems 'big5)

(set-terminal-coding-system 'big5)

(set-keyboard-coding-system 'big5)))

(when (member lang '("ja" "ko" "zh"))

;; ispell doesn't support CJK

(setq-default ispell-local-dictionary "english")))

#~/.emacs 파일에 작성

(load "~/.init/lang-coding-systems-init") // 위의 내용을 이 파일안에
-------------
어디선가 퍼왔습니다.
유니코드 지원이고요.
Mule-ucs 설치되어있어야합니다.

 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; environments
;;

(setq backup-directory-alist nil)
(setq backup-directory-alist
      (cons (cons "\\.*$" temporary-file-directory)
            backup-directory-alist))



(setq       default-transient-mark-mode    t)


;-------  default mode -----------------------------------
(setq       default-major-mode    'text-mode)


(setq       indent-tabs-mode    t)
   ;If this variable is non-nil, indentation functions can insert tabs as well as spaces.


(setq default-frame-alist '
   (
   (font . "-apple-monaco-medium-r-normal--15-100-75-75-m-100-mac-roman")
   (height . 45)
   (width . 80)
   )
)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Language
;;
;; http://www.emacswiki.org/cgi-bin/emacs-en/CarbonEmacsPackage
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


 (set-language-environment "Korean")
 (set-default-coding-systems 'euc-kr)
 (set-keyboard-coding-system 'euc-kr)
 (set-terminal-coding-system 'utf-8)
 
 (set-buffer-file-coding-system 'euc-kr)
 (set-file-name-coding-system 'utf-8)

 (set-clipboard-coding-system 'euc-kr)
 (set-selection-coding-system 'euc-kr)
 
 (setq interprogram-cut-function
      '(lambda (str push)
         (mac-cut-function
          (encode-coding-string str selection-coding-system t) push)))

 (setq interprogram-paste-function
      '(lambda ()
         (decode-coding-string
          (mac-paste-function) selection-coding-system t)))



;;Define the mouse scroll wheel
(defun up-slightly () (interactive) (scroll-up 5))
(defun down-slightly () (interactive) (scroll-down 5))
(global-set-key [mouse-4] 'down-slightly)
(global-set-key [mouse-5] 'up-slightly)


;;tramp
(setq tramp-default-method "sshx")


(setq mac-command-key-is-meta nil)
(global-set-key [(alt v)] 'yank)
(global-set-key [(alt c)] 'kill-ring-save)
(global-set-key [(alt x)] 'kill-region)
(global-set-key [(alt q)] 'save-buffers-kill-emacs)
(global-set-key [(alt w)] 'myKillBuffer)
(global-set-key [(alt z)] 'undo)
(global-set-key [(alt f)] 'search)
(global-set-key [(alt s)] 'save-buffer)

;;Selected text is deleted when you push delete. *gasp* ;-)
(pc-selection-mode)                 
(delete-selection-mode t)  

이런것도 있습니다만, 몇몇부분은 OS X 에서 사용하기 위한것입니다.

[/code]