(setup-default-fontset): For each script, append (not set) font-specs.

2 files changed, 6 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 85e07584796..6a2f3ad06e7 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -2,7 +2,7 @@
 
         * progmodes/gdb-mi.el (gdb): Remove description of
         gdb-use-separate-io-buffer.
-        (menu): Don't allow toggling of or enable 
+        (menu): Don't allow toggling of or enable
         gdb-use-separate-io-buffer from menubar.
 
 2009-07-08  E. Jay Berkenbilt  <ejb@ql.org>  (tiny change)
@@ -27,6 +27,9 @@
 
 2009-07-08  Kenichi Handa  <handa@m17n.org>
 
+        * international/fontset.el (setup-default-fontset): For each
+        script, append (not set) font-specs.
+
         * language/japanese.el (japanese-shift-jis-2004): Fix typo in the
         docstring.
 
diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el
index fa7e8b1e117..e2c6491d4af 100644
--- a/lisp/international/fontset.el
+++ b/lisp/international/fontset.el
@@ -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)