changeset 101815:f237c13dd6f5

(setup-default-fontset): Append entries for mathematical, instead of prepending.
author Kenichi Handa <handa@m17n.org>
date Thu, 05 Feb 2009 07:09:47 +0000
parents 8ea121e8bd97
children 5e57e0473132
files lisp/international/fontset.el
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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))