# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1247037746 0
# Node ID 564f64e0d6dbcc93f983056cdae8cac04b9265b9
# Parent  d8f620ade0dc7c481427fc2843dbcf8ebb8b545a
(setup-default-fontset): For each script, append (not set) font-specs.

diff -r d8f620ade0dc -r 564f64e0d6db lisp/international/fontset.el
--- a/lisp/international/fontset.el	Wed Jul 08 04:51:57 2009 +0000
+++ b/lisp/international/fontset.el	Wed Jul 08 07:22:26 2009 +0000
@@ -526,7 +526,8 @@
 		    mahjong-tile
 		    domino-tile))
     (set-fontset-font "fontset-default"
-		      script (font-spec :registry "iso10646-1" :script script)))
+		      script (font-spec :registry "iso10646-1" :script script)
+		      nil 'append))
 
   ;; Special settings for `MATHEMATICAL (U+1D400..U+1D7FF)'.
   (dolist (math-subgroup '((#x1D400 #x1D433 mathematical-bold)