changeset 103780:564f64e0d6db

(setup-default-fontset): For each script, append (not set) font-specs.
author Kenichi Handa <handa@m17n.org>
date Wed, 08 Jul 2009 07:22:26 +0000
parents d8f620ade0dc
children 455b21d42672
files lisp/international/fontset.el
diffstat 1 files changed, 2 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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)