Mercurial > hg > xemacs-beta

diff lisp/mule/korean-hooks.el @ 98:0d2f883870bc r20-1b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b1
author cvs
date Mon, 13 Aug 2007 09:13:56 +0200
parents 821dec489c24
children a145efe76779
line wrap: on
line diff
--- a/lisp/mule/korean-hooks.el	Mon Aug 13 09:12:43 2007 +0200
+++ b/lisp/mule/korean-hooks.el	Mon Aug 13 09:13:56 2007 +0200
@@ -98,6 +98,17 @@
     (set-default-file-coding-system 'euc-korea)
     (setq keyboard-coding-system     'euc-korea)
     (setq terminal-coding-system     'euc-korea)
-    (set-charset-registry 'ascii "ksc5636")))
+    (set-charset-registry 'ascii "ksc5636")
+
+    ;; EGG specific setup 97.02.05 jhod
+    (when (featurep 'egg)
+      (when (not (featurep 'egg-kor))
+	(provide 'egg-kor)
+	(load "its/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 quail-current-package
 ;                  (assoc "hangul" quail-package-alist))))
+    ))