# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1233817787 0
# Node ID f237c13dd6f5eb52419aaa7c2f3f2a1bc29586e4
# Parent  8ea121e8bd97ff748ecf271ed57f0bcf73047cd9
(setup-default-fontset): Append entries for mathematical, instead of
prepending.

diff -r 8ea121e8bd97 -r f237c13dd6f5 lisp/international/fontset.el
--- a/lisp/international/fontset.el	Thu Feb 05 06:47:31 2009 +0000
+++ b/lisp/international/fontset.el	Thu Feb 05 07:09:47 2009 +0000
@@ -557,7 +557,7 @@
 	      (setcdr slot (vconcat (cdr slot) (vector (car math-subgroup))))
 	    (setcdr slot (vector (cadr slot) (car math-subgroup))))
 	(setq slot (list (nth 2 math-subgroup) (car math-subgroup)))
-	(push slot script-representative-chars)))
+	(nconc script-representative-chars (list slot))))
     (set-fontset-font
      "fontset-default"
      (cons (car math-subgroup) (nth 1 math-subgroup))