Mercurial > emacs

comparison lisp/language/korean.el @ 88513:bafe04d82c5d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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)