Mercurial > emacs

comparison lisp/language/korean.el @ 20739:5f2c7f919bbf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Adjusted for the change of make-coding-system. Register coding-priority key in language-info-alist.
author Kenichi Handa <handa@m17n.org>
date Thu, 22 Jan 1998 01:46:28 +0000
parents f173ebdb6be2
children 7796d11200eb
comparison
equal deleted inserted replaced
20738:f510736ce3d1 20739:5f2c7f919bbf
29 ;;; Code: 29 ;;; Code:
30 30
31 (make-coding-system 31 (make-coding-system
32 'korean-iso-8bit 2 ?K 32 'korean-iso-8bit 2 ?K
33 "ISO 2022 based EUC encoding for Korean KSC5601 (MIME:EUC-KR)" 33 "ISO 2022 based EUC encoding for Korean KSC5601 (MIME:EUC-KR)"
34 '((ascii t) korean-ksc5601 nil nil 34 '(ascii korean-ksc5601 nil nil
35 nil ascii-eol ascii-cntl) 35 nil ascii-eol ascii-cntl)
36 '(ascii korean-ksc5601)) 36 '((safe-charsets ascii korean-ksc5601)
37 (mime-charset . euc-kr)))
37 38
38 (define-coding-system-alias 'euc-kr 'korean-iso-8bit) 39 (define-coding-system-alias 'euc-kr 'korean-iso-8bit)
39 (define-coding-system-alias 'euc-korea 'korean-iso-8bit) 40 (define-coding-system-alias 'euc-korea 'korean-iso-8bit)
40 41
41 (make-coding-system 42 (make-coding-system
42 'korean-iso-7bit-lock 2 ?k 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 '(ascii (nil korean-ksc5601) nil nil 45 '(ascii (nil korean-ksc5601) nil nil
45 nil ascii-eol ascii-cntl seven locking-shift nil nil nil nil nil 46 nil ascii-eol ascii-cntl seven locking-shift nil nil nil nil nil
46 designation-bol) 47 designation-bol)
47 '(ascii korean-ksc5601)) 48 '((safe-charsets ascii korean-ksc5601)
49 (mime-charset . iso-2022-kr)))
48 50
49 (define-coding-system-alias 'iso-2022-kr 'korean-iso-7bit-lock) 51 (define-coding-system-alias 'korean-iso-7bit-lock 'iso-2022-kr)
50 52
51 (set-language-info-alist 53 (set-language-info-alist
52 "Korean" '((setup-function . setup-korean-environment) 54 "Korean" '((setup-function . setup-korean-environment)
53 (exit-function . exit-korean-environment) 55 (exit-function . exit-korean-environment)
54 (tutorial . "TUTORIAL.kr") 56 (tutorial . "TUTORIAL.kr")
55 (charset . (korean-ksc5601)) 57 (charset korean-ksc5601)
56 (coding-system . (korean-iso-7bit-lock korean-iso-8bit)) 58 (coding-system iso-2022-kr korean-iso-8bit)
59 (coding-priority korean-iso-8bit iso-2022-kr)
57 (sample-text . "Hangul ($(CGQ1[(B) $(C>H3gGO<<?d(B, $(C>H3gGO=J4O1n(B") 60 (sample-text . "Hangul ($(CGQ1[(B) $(C>H3gGO<<?d(B, $(C>H3gGO=J4O1n(B")
58 (documentation . "The following key bindings are avairable: 61 (documentation . "\
62 The following key bindings are avairable while using Korean input methods:
59 Shift-SPC: toggle-korean-input-mthod 63 Shift-SPC: toggle-korean-input-mthod
60 Control-F9: quail-hangul-switch-symbol-ksc 64 Control-F9: quail-hangul-switch-symbol-ksc
61 F9: quail-hangul-switch-hanja") 65 F9: quail-hangul-switch-hanja")
62 )) 66 ))
63 67