Commit 9c4a9606 authored by Kenichi Handa's avatar Kenichi Handa

(setup-korean-environment-internal): Make

char-widht-table suitable for Korean environments.
(exit-korean-environment): Cancel above.
parent 565b4644
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment