Mercurial > emacs

comparison lisp/language/korean.el @ 18309:bd8b521f5218

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Provide XXX-util instead of language/XXX-util. Delete local variable declartion. Delete the code of calling register-input-method form all files under this directory.
author Kenichi Handa <handa@m17n.org>
date Wed, 18 Jun 1997 13:06:17 +0000
parents 0745f30aec66
children 8b4a66c66dd6
comparison
equal deleted inserted replaced
18308:b8622afb8a6e 18309:bd8b521f5218
44 nil ascii-eol ascii-cntl seven locking-shift nil nil nil nil nil 44 nil ascii-eol ascii-cntl seven locking-shift nil nil nil nil nil
45 designation-bol)) 45 designation-bol))
46 46
47 (define-coding-system-alias 'korean-iso-7bit-lock 'iso-2022-kr) 47 (define-coding-system-alias 'korean-iso-7bit-lock 'iso-2022-kr)
48 48
49 (register-input-method
50 "Korean" '("quail-hangul" quail-use-package "quail/hangul"))
51 (register-input-method
52 "Korean" '("quail-hangul3" quail-use-package "quail/hangul3"))
53 (register-input-method
54 "Korean" '("quail-hanja" quail-use-package "quail/hanja"))
55 (register-input-method
56 "Korean" '("quail-symbol-ksc" quail-use-package "quail/symbol-ksc"))
57 (register-input-method
58 "Korean" '("quail-hanja-jis" quail-use-package "quail/hanja-jis"))
59
60 (defun setup-korean-environment () 49 (defun setup-korean-environment ()
61 "Setup multilingual environment (MULE) for Korean." 50 "Setup multilingual environment (MULE) for Korean."
62 (interactive) 51 (interactive)
63 (setup-english-environment) 52 (setup-english-environment)
64 (setq coding-category-iso-8-2 'korean-iso-8bit) 53 (setq coding-category-iso-8-2 'korean-iso-8bit)