Mercurial > emacs

changeset 91936:cbc008b3464f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix previous change.
author Kenichi Handa <handa@m17n.org>
date Mon, 18 Feb 2008 12:06:53 +0000
parents 0e222c52ad00
children baa074991ebd
files lisp/international/characters.el
diffstat 1 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/characters.el	Mon Feb 18 11:53:59 2008 +0000
+++ b/lisp/international/characters.el	Mon Feb 18 12:06:53 2008 +0000
@@ -1019,11 +1019,13 @@
 
 (defun use-cjk-char-width-table ()
   "Internal use only.
-Setup char-width-table appropriate for CJK language environment.")
+Setup char-width-table appropriate for CJK language environment."
+  (setq char-width-table cjk-char-width-table))
 
 (defun use-default-char-width-table ()
   "Internal use only.
-Setup char-width-table appropriate for non-CJK language environment.")
+Setup char-width-table appropriate for non-CJK language environment."
+  (setq char-width-table (char-table-parent cjk-char-width-table)))
 
 (optimize-char-table (standard-case-table))
 (optimize-char-table (standard-category-table))