-(defun setup-korean-environment ()
- "Setup multilingual environment (MULE) for Korean."
- (interactive)
- (setup-english-environment)
- ;; (setq coding-category-iso-8-2 'euc-kr)
- (set-coding-category-system 'iso-8-2 'euc-kr)
-
- ;; (set-coding-priority
- ;; '(coding-category-iso-7
- ;; coding-category-iso-8-2
- ;; coding-category-iso-8-1))
- (set-coding-priority-list
- '(iso-8-2
- iso-7
- iso-8-1
- iso-8-designate
- iso-lock-shift
- no-conversion
- shift-jis
- big5))
-
- (set-default-coding-systems 'euc-kr)
-
- ;; (when (eq 'x (device-type (selected-device)))
- ;; (x-use-halfwidth-roman-font 'korean-ksc5601 "ksc5636"))
-
- ;; EGG specific setup 97.02.05 jhod
- (when (featurep 'egg)
- (when (not (featurep 'egg-kor))
- (provide 'egg-kor)
- (load "its-hangul")
- (setq its:*standard-modes*
- (cons (its:get-mode-map "hangul") its:*standard-modes*)))
- (setq-default its:*current-map* (its:get-mode-map "hangul")))
-
- (setq default-input-method "korean-hangul"))