From 3208a64a70cab8e3cdb1231ae4355759ab88c464 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 5 Feb 2009 07:09:47 +0000 Subject: (setup-default-fontset): Append entries for mathematical, instead of prepending. --- lisp/international/fontset.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lisp') diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el index 2d414d68df..65b9e4a112 100644 --- a/lisp/international/fontset.el +++ b/lisp/international/fontset.el @@ -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)) -- cgit v1.2.3