[Emacs-diffs] emacs/lisp/language korea-util.el

[Kenichi Handa]

CVSROOT:        /cvsroot/emacs
Module name:    emacs
Changes by:     Kenichi Handa <handa>   09/06/30 02:08:36

Modified files:
        lisp/language  : korea-util.el 

Log message:
        (setup-korean-environment-internal): Make
        char-widht-table suitable for Korean environments.
        (exit-korean-environment): Cancel above.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/language/korea-util.el?cvsroot=emacs&r1=1.22&r2=1.23

Patches:
Index: korea-util.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/language/korea-util.el,v
retrieving revision 1.22
retrieving revision 1.23
diff -u -b -r1.22 -r1.23
--- korea-util.el       23 Jun 2009 02:12:41 -0000      1.22
+++ korea-util.el       30 Jun 2009 02:08:36 -0000      1.23
@@ -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))