# HG changeset patch
# User Dave Love <fx@gnu.org>
# Date 1024943130 0
# Node ID 45b498250bfbaea1d095ac205947259b531860cf
# Parent  15101779a9a0fd5542f37eff995409b2c197fd3e
Make korean-ksc5601 double-width.

diff -r 15101779a9a0 -r 45b498250bfb lisp/international/characters.el
--- a/lisp/international/characters.el	Mon Jun 24 18:25:16 2002 +0000
+++ b/lisp/international/characters.el	Mon Jun 24 18:25:30 2002 +0000
@@ -385,7 +385,6 @@
 (modify-category-entry '(#xe80 . #xeff) ?o)
 (map-charset-chars #'modify-category-entry 'lao ?o)
 
-;; Fixme: check this.  Lao characters in HELLO seem to have all the categories
 (let ((deflist	'(("ກ-ຮ"	"w"	?0) ; consonant
 		  ("ະາຳຽເ-ໄ"	"w"	?1) ; vowel base
 		  ("ັິ-ືົໍ"	"w"	?2) ; vowel upper
@@ -897,6 +896,9 @@
 (map-charset-chars
  (lambda (range ignore) (set-char-table-range char-width-table range 2))
  'arabic-2-column)
+(map-charset-chars
+ (lambda (range ignore) (set-char-table-range char-width-table range 2))
+ 'korean-ksc5601)
 
 (optimize-char-table (standard-case-table))
 (optimize-char-table char-width-table)