diff options
| author | Kenichi Handa <handa@m17n.org> | 2009-06-30 02:08:36 +0000 |
|---|---|---|
| committer | Kenichi Handa <handa@m17n.org> | 2009-06-30 02:08:36 +0000 |
| commit | 9c4a96065611cd21cb6c308208b7501765683bbe (patch) | |
| tree | b02ffa52863dd9a613436bc56fbb9a4e693fb962 /lisp/language | |
| parent | 565b46444831dd54899655bc6edeb58c1046a302 (diff) | |
| download | emacs-9c4a96065611cd21cb6c308208b7501765683bbe.tar.gz | |
(setup-korean-environment-internal): Make
char-widht-table suitable for Korean environments.
(exit-korean-environment): Cancel above.
Diffstat (limited to 'lisp/language')
| -rw-r--r-- | lisp/language/korea-util.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/language/korea-util.el b/lisp/language/korea-util.el index e9ed59971c9..8f653194f66 100644 --- a/lisp/language/korea-util.el +++ b/lisp/language/korea-util.el @@ -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)) |