# HG changeset patch
# User Kenichi Handa  <handa@m17n.org>
# Date 1262915698 -32400
# Node ID 28260028067c2e9d93af36ddd7ddd6f0b2372ee9
# Parent  e778a4a0f82171d2ba78486f05c5217a935d0546# Parent  19b3c3f93cd1b8aa86c8770e8243461a1e761341
international/fontset.el (build-default-fontset-data): Exclude characters in scripts kana, hangul, han, or cjk-misc.

diff -r e778a4a0f821 -r 28260028067c lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Jan 07 23:46:44 2010 +0100
+++ b/lisp/ChangeLog	Fri Jan 08 10:54:58 2010 +0900
@@ -1,3 +1,8 @@
+2010-01-08  Kenichi Handa  <handa@m17n.org>
+
+	* international/fontset.el (build-default-fontset-data): Exclude
+	characters in scripts kana, hangul, han, or cjk-misc.
+
 2010-01-07  Juanma Barranquero  <lekktu@gmail.com>
 
 	* vc-dir.el (vc-dir-prepare-status-buffer): Pass a (fake) filename
diff -r e778a4a0f821 -r 28260028067c lisp/international/fontset.el
--- a/lisp/international/fontset.el	Thu Jan 07 23:46:44 2010 +0100
+++ b/lisp/international/fontset.el	Fri Jan 08 10:54:58 2010 +0900
@@ -361,8 +361,10 @@
 	     (let ((from (car range)) (to (cdr range)))
 	       (if (< to #x110000)
 		   (while (<= from to)
-		     (aset cjk-table from
-			   (logior (or (aref cjk-table from) 0) mask))
+		     (or (memq (aref char-script-table from)
+			       '(kana hangul han cjk-misc))
+			 (aset cjk-table from
+			       (logior (or (aref cjk-table from) 0) mask)))
 		     (setq from (1+ from))))))
 	 (nth 1 elt) nil (nth 2 elt) (nth 3 elt)))
       (setq i (1+ i)))