From 367659703e2ee6f05506a32ef58a35f6e94a1b35 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 22 Jan 1998 01:46:28 +0000 Subject: Adjusted for the change of make-coding-system. Register coding-priority key in language-info-alist. --- lisp/language/korean.el | 20 ++++++++++++-------- 1 file changed, 12 insertions(+), 8 deletions(-) (limited to 'lisp/language/korean.el') diff --git a/lisp/language/korean.el b/lisp/language/korean.el index ded33c2b028..4ecf7b85390 100644 --- a/lisp/language/korean.el +++ b/lisp/language/korean.el @@ -31,31 +31,35 @@ (make-coding-system 'korean-iso-8bit 2 ?K "ISO 2022 based EUC encoding for Korean KSC5601 (MIME:EUC-KR)" - '((ascii t) korean-ksc5601 nil nil + '(ascii korean-ksc5601 nil nil nil ascii-eol ascii-cntl) - '(ascii korean-ksc5601)) + '((safe-charsets ascii korean-ksc5601) + (mime-charset . euc-kr))) (define-coding-system-alias 'euc-kr 'korean-iso-8bit) (define-coding-system-alias 'euc-korea 'korean-iso-8bit) (make-coding-system - 'korean-iso-7bit-lock 2 ?k + 'iso-2022-kr 2 ?k "ISO 2022 based 7-bit encoding for Korean KSC5601 (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) - '(ascii korean-ksc5601)) + '((safe-charsets ascii korean-ksc5601) + (mime-charset . iso-2022-kr))) -(define-coding-system-alias 'iso-2022-kr 'korean-iso-7bit-lock) +(define-coding-system-alias 'korean-iso-7bit-lock 'iso-2022-kr) (set-language-info-alist "Korean" '((setup-function . setup-korean-environment) (exit-function . exit-korean-environment) (tutorial . "TUTORIAL.kr") - (charset . (korean-ksc5601)) - (coding-system . (korean-iso-7bit-lock korean-iso-8bit)) + (charset korean-ksc5601) + (coding-system iso-2022-kr korean-iso-8bit) + (coding-priority korean-iso-8bit iso-2022-kr) (sample-text . "Hangul ($(CGQ1[(B) $(C>H3gGO<H3gGO=J4O1n(B") - (documentation . "The following key bindings are avairable: + (documentation . "\ +The following key bindings are avairable while using Korean input methods: Shift-SPC: toggle-korean-input-mthod Control-F9: quail-hangul-switch-symbol-ksc F9: quail-hangul-switch-hanja") -- cgit v1.2.1