diff options
author | Kenichi Handa <handa@m17n.org> | 1998-01-22 01:46:28 +0000 |
---|---|---|
committer | Kenichi Handa <handa@m17n.org> | 1998-01-22 01:46:28 +0000 |
commit | 367659703e2ee6f05506a32ef58a35f6e94a1b35 (patch) | |
tree | d343f501ea26d14ac0b56ff604c7c9328e669fb1 /lisp/language/korean.el | |
parent | b823b1f06b565118497fd643578d95f87ccc93e6 (diff) | |
download | emacs-367659703e2ee6f05506a32ef58a35f6e94a1b35.tar.gz |
Adjusted for the change of make-coding-system. Register
coding-priority key in language-info-alist.
Diffstat (limited to 'lisp/language/korean.el')
-rw-r--r-- | lisp/language/korean.el | 20 |
1 files changed, 12 insertions, 8 deletions
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<<?d(B, $(C>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") |