From: Kenichi Handa <handa@m17n.org>
Date: Wed, 8 Jul 2009 07:25:47 +0000 (+0000)
Subject: (setup-default-fontset): For each script, append (not set) font-specs.
X-Git-Tag: emacs-pretest-23.0.96~4
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7f881ae3b0d0f48e183e8b73f7cbf292d09390f5;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 6cdf1b992e3..3c2be95238f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -5,6 +5,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 d041f161cc6..6b2a240e8d7 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)