From 710b5fab9f53139df529ca47565c882289494ee3 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Mon, 12 May 1997 07:00:13 +0000 Subject: [PATCH] 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. --- lisp/language/korean.el | 17 ++++++++++++----- 1 file 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,10 +41,8 @@ "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 @@ -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<H3gGO=J4O1n(B"))) + (sample-text . "Hangul ($(CGQ1[(B) $(C>H3gGO<H3gGO=J4O1n(B") + (documentation . nil))) ;;; korean.el ends here -- 2.39.5