[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] emacs/lisp/language korea-util.el
From: |
Kenichi Handa |
Subject: |
[Emacs-diffs] emacs/lisp/language korea-util.el |
Date: |
Tue, 30 Jun 2009 02:08:36 +0000 |
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))