Mercurial > emacs

comparison lisp/language/korean.el @ 20157:2e075af4e648

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Give proper SAFE-CHARSET argument in each call of make-coding-system. Set exit-function for language environment "Korean" to exit-korean-environment. (setup-korean-environment): Moved to korean.el.
author Kenichi Handa <handa@m17n.org>
date Thu, 23 Oct 1997 12:03:41 +0000
parents 0d6c6ac2f772
children f173ebdb6be2
comparison
equal deleted inserted replaced
20156:c8c4c714710b 20157:2e075af4e648
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 t) korean-ksc5601 nil nil
35 nil ascii-eol ascii-cntl)) 35 nil ascii-eol ascii-cntl)
36 '(ascii korean-ksc5601))
36 37
37 (define-coding-system-alias 'euc-kr 'korean-iso-8bit) 38 (define-coding-system-alias 'euc-kr 'korean-iso-8bit)
38 (define-coding-system-alias 'euc-korea 'korean-iso-8bit) 39 (define-coding-system-alias 'euc-korea 'korean-iso-8bit)
39 40
40 (make-coding-system 41 (make-coding-system
41 'korean-iso-7bit-lock 2 ?k 42 'korean-iso-7bit-lock 2 ?k
42 "ISO 2022 based 7-bit encoding for Korean KSC5601 (MIME:ISO-2022-KR)." 43 "ISO 2022 based 7-bit encoding for Korean KSC5601 (MIME:ISO-2022-KR)."
43 '(ascii (nil korean-ksc5601) nil nil 44 '(ascii (nil korean-ksc5601) nil nil
44 nil ascii-eol ascii-cntl seven locking-shift nil nil nil nil nil 45 nil ascii-eol ascii-cntl seven locking-shift nil nil nil nil nil
45 designation-bol)) 46 designation-bol)
47 '(ascii korean-ksc5601))
46 48
47 (define-coding-system-alias 'iso-2022-kr 'korean-iso-7bit-lock) 49 (define-coding-system-alias 'iso-2022-kr 'korean-iso-7bit-lock)
48 50
49 (defun setup-korean-environment ()
50 "Setup multilingual environment (MULE) for Korean."
51 (interactive)
52 (setup-english-environment)
53 (setq coding-category-iso-8-2 'korean-iso-8bit)
54
55 (set-coding-priority
56 '(coding-category-iso-7
57 coding-category-iso-8-2
58 coding-category-iso-8-1))
59
60 (set-default-coding-systems 'korean-iso-8bit)
61
62 (setq default-input-method "korean-hangul"))
63
64 (set-language-info-alist 51 (set-language-info-alist
65 "Korean" '((setup-function . setup-korean-environment) 52 "Korean" '((setup-function . setup-korean-environment)
53 (exit-function . exit-korean-environment)
66 (tutorial . "TUTORIAL.kr") 54 (tutorial . "TUTORIAL.kr")
67 (charset . (korean-ksc5601)) 55 (charset . (korean-ksc5601))
68 (coding-system . (korean-iso-7bit-lock korean-iso-8bit)) 56 (coding-system . (korean-iso-7bit-lock korean-iso-8bit))
69 (sample-text . "Hangul ($(CGQ1[(B) $(C>H3gGO<<?d(B, $(C>H3gGO=J4O1n(B") 57 (sample-text . "Hangul ($(CGQ1[(B) $(C>H3gGO<<?d(B, $(C>H3gGO=J4O1n(B")
70 (documentation . t))) 58 (documentation . "The following key bindings are avairable:
59 Shift-SPC: toggle-korean-input-mthod
60 Control-F10: quail-hangul-switch-symbol-ksc
61 F9: quail-hangul-switch-hanja")
62 ))
71 63
72 ;;; korean.el ends here 64 ;;; korean.el ends here