From 7f881ae3b0d0f48e183e8b73f7cbf292d09390f5 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 8 Jul 2009 07:25:47 +0000 Subject: [PATCH] (setup-default-fontset): For each script, append (not set) font-specs. --- lisp/ChangeLog | 3 +++ lisp/international/fontset.el | 3 ++- 2 files changed, 5 insertions(+), 1 deletion(-) 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 + * 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) -- 2.39.5