Mercurial > emacs

diff lisp/language/korea-util.el @ 20738:f510736ce3d1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
In setup-LANGUAGE-environment functions, call set-language-environment-coding-systems.
author Kenichi Handa <handa@m17n.org>
date Thu, 22 Jan 1998 01:45:51 +0000
parents da84d48fd13b
children bcb4a7a67d13
line wrap: on
line diff
--- a/lisp/language/korea-util.el	Thu Jan 22 01:45:17 1998 +0000
+++ b/lisp/language/korea-util.el	Thu Jan 22 01:45:51 1998 +0000
@@ -65,14 +65,7 @@
   "Setup multilingual environment (MULE) for Korean."
   (interactive)
   (setup-english-environment)
-  (setq coding-category-iso-8-2 'korean-iso-8bit)
-
-  (set-coding-priority
-   '(coding-category-iso-7
-     coding-category-iso-8-2
-     coding-category-iso-8-1))
-
-  (set-default-coding-systems 'korean-iso-8bit)
+  (set-language-environment-coding-systems "Korean")
 
   (setq default-input-method "korean-hangul")