diff options
| author | Kenichi Handa <handa@m17n.org> | 1997-05-12 07:00:13 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 1997-05-12 07:00:13 +0000 |
| commit | 710b5fab9f53139df529ca47565c882289494ee3 (patch) | |
| tree | 68feae8a5f45b92afdf7adead48583568ee9f504 /lisp/language/korean.el | |
| parent | 3ce72daee18d626d0ba3309476f9536980c3f244 (diff) | |
| download | emacs-710b5fab9f53139df529ca47565c882289494ee3.tar.gz | |
Make functions setup-LANGUAGE-environment
interactive and add new functions describe-LANGUAGE-support for
all LANGUAGEs supported. Remove resisterations of input methods
which use the function encoded-kbd-select-terminal.
Bug fixed in making coding system iso-2022-kr.
Diffstat (limited to 'lisp/language/korean.el')
| -rw-r--r-- | lisp/language/korean.el | 17 |
1 files changed, 12 insertions, 5 deletions
diff --git a/lisp/language/korean.el b/lisp/language/korean.el index 2aec2cefc74..e096db9cb40 100644 --- a/lisp/language/korean.el +++ b/lisp/language/korean.el @@ -41,11 +41,9 @@ "MIME ISO-2022-KR" '(ascii (nil korean-ksc5601) nil nil nil ascii-eol ascii-cntl seven locking-shift nil nil nil nil nil - 'designation-bol)) + designation-bol)) (register-input-method - "Korean" '("hanterm" encoded-kbd-select-terminal euc-kr)) -(register-input-method "Korean" '("quail-hangul" quail-use-package "quail/hangul")) (register-input-method "Korean" '("quail-hangul3" quail-use-package "quail/hangul3")) @@ -57,6 +55,9 @@ "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 @@ -69,12 +70,18 @@ (setq default-input-method '("Korean" . "quail-hangul")) ) +(defun describe-korean-support () + "Describe How Emacs supports Korean." + (interactive) + (describe-language-support-internal "Korean")) + (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)) - (documentation . t) - (sample-text . "Hangul ($(CGQ1[(B) $(C>H3gGO<<?d(B, $(C>H3gGO=J4O1n(B"))) + (sample-text . "Hangul ($(CGQ1[(B) $(C>H3gGO<<?d(B, $(C>H3gGO=J4O1n(B") + (documentation . nil))) ;;; korean.el ends here |