Mercurial > emacs
comparison lisp/language/korean.el @ 18309:bd8b521f5218
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) |