Mercurial > emacs
comparison lisp/language/korean.el @ 88513:bafe04d82c5d
Fix :mime-charset properties.
author | Dave Love <fx@gnu.org> |
---|---|
date | Tue, 14 May 2002 15:37:13 +0000 |
parents | fad0f879877f |
children | 2f877ed80fa6 |
comparison
equal
deleted
inserted
replaced
88512:1e2fb9a9f29c | 88513:bafe04d82c5d |
---|---|
32 "ISO 2022 based EUC encoding for Korean KSC5601 (MIME:EUC-KR)." | 32 "ISO 2022 based EUC encoding for Korean KSC5601 (MIME:EUC-KR)." |
33 :coding-type 'iso-2022 | 33 :coding-type 'iso-2022 |
34 :mnemonic ?K | 34 :mnemonic ?K |
35 :designation [ascii korean-ksc5601 nil nil] | 35 :designation [ascii korean-ksc5601 nil nil] |
36 :charset-list '(ascii korean-ksc5601) | 36 :charset-list '(ascii korean-ksc5601) |
37 :plist '(mime-charset euc-kr)) | 37 :mime-charset 'euc-kr) |
38 | 38 |
39 (define-coding-system-alias 'euc-kr 'korean-iso-8bit) | 39 (define-coding-system-alias 'euc-kr 'korean-iso-8bit) |
40 (define-coding-system-alias 'euc-korea 'korean-iso-8bit) | 40 (define-coding-system-alias 'euc-korea 'korean-iso-8bit) |
41 | 41 |
42 (define-coding-system 'iso-2022-kr | 42 (define-coding-system 'iso-2022-kr |
45 :mnemonic ?k | 45 :mnemonic ?k |
46 :designation [ascii (nil korean-ksc5601) nil nil] | 46 :designation [ascii (nil korean-ksc5601) nil nil] |
47 :flags '(ascii-at-eol ascii-at-cntl 7-bit designation locking-shift | 47 :flags '(ascii-at-eol ascii-at-cntl 7-bit designation locking-shift |
48 designation-bol) | 48 designation-bol) |
49 :charset-list '(ascii korean-ksc5601) | 49 :charset-list '(ascii korean-ksc5601) |
50 :plist '(mime-charset iso-2022-kr)) | 50 :mime-charset 'iso-2022-kr) |
51 | 51 |
52 (define-coding-system-alias 'korean-iso-7bit-lock 'iso-2022-kr) | 52 (define-coding-system-alias 'korean-iso-7bit-lock 'iso-2022-kr) |
53 | 53 |
54 (set-language-info-alist | 54 (set-language-info-alist |
55 "Korean" '((setup-function . setup-korean-environment-internal) | 55 "Korean" '((setup-function . setup-korean-environment-internal) |