Mercurial > hg > xemacs-beta
diff lisp/language/korean.el @ 197:acd284d43ca1 r20-3b25
Import from CVS: tag r20-3b25
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 10:00:02 +0200 |
| parents | 3bb7ccffb0c0 |
| children | e45d5e7c476e |
line wrap: on
line diff
--- a/lisp/language/korean.el Mon Aug 13 09:59:07 2007 +0200 +++ b/lisp/language/korean.el Mon Aug 13 10:00:02 2007 +0200 @@ -1,7 +1,7 @@ ;;; korean.el --- Support for Korean -;; Copyright (C) 1995 Free Software Foundation, Inc. ;; Copyright (C) 1995 Electrotechnical Laboratory, JAPAN. +;; Licensed to the Free Software Foundation. ;; Copyright (C) 1997 MORIOKA Tomohiko ;; Keywords: multilingual, Korean @@ -101,46 +101,28 @@ mnemonic "Ko/7bit" eol-type lf)) -(register-input-method - "Korean" '("quail-hangul" quail-use-package "quail/hangul")) -(register-input-method - "Korean" '("quail-hangul3" quail-use-package "quail/hangul3")) -(register-input-method - "Korean" '("quail-hanja" quail-use-package "quail/hanja")) -(register-input-method - "Korean" '("quail-symbol-ksc" quail-use-package "quail/symbol-ksc")) -(register-input-method - "Korean" '("quail-hanja-jis" quail-use-package "quail/hanja-jis")) - (defun setup-korean-environment () "Setup multilingual environment (MULE) for Korean." (interactive) (setup-english-environment) (setq coding-category-iso-8-2 'euc-kr) - + (set-coding-priority '(coding-category-iso-7 coding-category-iso-8-2 coding-category-iso-8-1)) - - (setq-default buffer-file-coding-system 'euc-kr) - - (setq default-input-method '("Korean" . "quail-hangul")) - ) -(defun describe-korean-support () - "Describe How Emacs supports Korean." - (interactive) - (describe-language-support-internal "Korean")) + (set-default-coding-systems 'euc-kr) + + (setq default-input-method "korean-hangul")) (set-language-info-alist "Korean" '((setup-function . setup-korean-environment) - (describe-function . describe-korean-support) (tutorial . "TUTORIAL.kr") (charset . (korean-ksc5601)) - (coding-system . (euc-kr iso-2022-kr)) - (sample-text . "Hangul ($(CGQ1[(B) $(C>H3gGO<<?d(B, $(C>H3gGO=J4O1n(B") - (documentation . nil))) + (coding-system . (iso-2022-kr euc-kr)) + (sample-text . "Hangul ($(CGQ1[(B) $(C>H3gGO<<?d(B, $(C>H3gGO=J4O1n(B") + (documentation . t))) ;;; for XEmacs (will be obsoleted)