Mercurial > emacs
changeset 103632:a4b47cc25ea0
(setup-korean-environment-internal): Make
char-widht-table suitable for Korean environments.
(exit-korean-environment): Cancel above.
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Tue, 30 Jun 2009 02:08:36 +0000 |
| parents | 37ec2c241d37 |
| children | 1ee218237a45 |
| files | lisp/language/korea-util.el |
| diffstat | 1 files changed, 2 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/language/korea-util.el Tue Jun 30 02:05:05 2009 +0000 +++ b/lisp/language/korea-util.el Tue Jun 30 02:08:36 2009 +0000 @@ -108,6 +108,7 @@ ;;;###autoload (defun setup-korean-environment-internal () + (use-cjk-char-width-table 'ko_KR) (let ((key-bindings korean-key-bindings)) (while key-bindings (let* ((this (car key-bindings)) @@ -125,6 +126,7 @@ (defun exit-korean-environment () "Exit Korean language environment." + (use-default-char-width-table) (let ((key-bindings korean-key-bindings)) (while key-bindings (let* ((this (car key-bindings))