Mercurial > emacs

comparison lisp/language/korean.el @ 88414:fad0f879877f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Call define-coding-system instead of make-coding-system. All CCL program deleted.
author Kenichi Handa <handa@m17n.org>
date Fri, 01 Mar 2002 02:28:29 +0000
parents e3ae5ef41293
children bafe04d82c5d
comparison
equal deleted inserted replaced
88413:418777d5ccd4 88414:fad0f879877f
26 26
27 ;; For Korean, the character set KSC5601 is supported. 27 ;; For Korean, the character set KSC5601 is supported.
28 28
29 ;;; Code: 29 ;;; Code:
30 30
31 (make-coding-system 31 (define-coding-system 'korean-iso-8bit
32 'korean-iso-8bit 2 ?K 32 "ISO 2022 based EUC encoding for Korean KSC5601 (MIME:EUC-KR)."
33 "ISO 2022 based EUC encoding for Korean KSC5601 (MIME:EUC-KR)." 33 :coding-type 'iso-2022
34 '(ascii korean-ksc5601 nil nil 34 :mnemonic ?K
35 nil ascii-eol ascii-cntl) 35 :designation [ascii korean-ksc5601 nil nil]
36 '((safe-charsets ascii korean-ksc5601) 36 :charset-list '(ascii korean-ksc5601)
37 (mime-charset . euc-kr))) 37 :plist '(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 (make-coding-system 42 (define-coding-system 'iso-2022-kr
43 'iso-2022-kr 2 ?k 43 "ISO 2022 based 7-bit encoding for Korean KSC5601 (MIME:ISO-2022-KR)."
44 "ISO 2022 based 7-bit encoding for Korean KSC5601 (MIME:ISO-2022-KR)." 44 :coding-type 'iso-2022
45 '(ascii (nil korean-ksc5601) nil nil 45 :mnemonic ?k
46 nil ascii-eol ascii-cntl seven locking-shift nil nil nil nil nil 46 :designation [ascii (nil korean-ksc5601) nil nil]
47 designation-bol) 47 :flags '(ascii-at-eol ascii-at-cntl 7-bit designation locking-shift
48 '((safe-charsets ascii korean-ksc5601) 48 designation-bol)
49 (mime-charset . iso-2022-kr))) 49 :charset-list '(ascii korean-ksc5601)
50 :plist '(mime-charset iso-2022-kr))
50 51
51 (define-coding-system-alias 'korean-iso-7bit-lock 'iso-2022-kr) 52 (define-coding-system-alias 'korean-iso-7bit-lock 'iso-2022-kr)
52 53
53 (set-language-info-alist 54 (set-language-info-alist
54 "Korean" '((setup-function . setup-korean-environment-internal) 55 "Korean" '((setup-function . setup-korean-environment-internal)