Mercurial > emacs

comparison lisp/language/korean.el @ 17841:084d922fcd78

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Coding system names changed as follows: internal -> emacs-mule, automatic-conversion -> undecided. Coding category name changes as follows: coding-category-internal -> coding-category-emacs-mule. Delete functions describe-LANGUAGE-support. Delete describe-function entries and change documentation entries in each language specific information.
author Kenichi Handa <handa@m17n.org>
date Fri, 16 May 1997 00:59:09 +0000
parents 0d0e69cee17d
children 0745f30aec66
comparison
equal deleted inserted replaced
17840:2517414676ed 17841:084d922fcd78
68 (setq-default buffer-file-coding-system 'euc-kr) 68 (setq-default buffer-file-coding-system 'euc-kr)
69 69
70 (setq default-input-method '("Korean" . "quail-hangul")) 70 (setq default-input-method '("Korean" . "quail-hangul"))
71 ) 71 )
72 72
73 (defun describe-korean-support ()
74 "Describe How Emacs supports Korean."
75 (interactive)
76 (describe-language-support-internal "Korean"))
77
78 (set-language-info-alist 73 (set-language-info-alist
79 "Korean" '((setup-function . setup-korean-environment) 74 "Korean" '((setup-function . setup-korean-environment)
80 (describe-function . describe-korean-support)
81 (tutorial . "TUTORIAL.kr") 75 (tutorial . "TUTORIAL.kr")
82 (charset . (korean-ksc5601)) 76 (charset . (korean-ksc5601))
83 (coding-system . (euc-kr iso-2022-kr)) 77 (coding-system . (euc-kr iso-2022-kr))
84 (sample-text . "Hangul ($(CGQ1[(B) $(C>H3gGO<<?d(B, $(C>H3gGO=J4O1n(B") 78 (sample-text . "Hangul ($(CGQ1[(B) $(C>H3gGO<<?d(B, $(C>H3gGO=J4O1n(B")
85 (documentation . nil))) 79 (documentation . t)))
86 80
87 ;;; korean.el ends here 81 ;;; korean.el ends here