# HG changeset patch
# User Kenichi Handa <handa@m17n.org>
# Date 1213942317 0
# Node ID b6d5b82f877f0c8845ce1acc9298718f2c474b1a
# Parent  5962deb66a42fb8ea1f27f11e69b2eec235e45b6
(fontset_from_font): Copy font_spec before changing
the elements.

diff -r 5962deb66a42 -r b6d5b82f877f src/fontset.c
--- a/src/fontset.c	Fri Jun 20 02:15:52 2008 +0000
+++ b/src/fontset.c	Fri Jun 20 06:11:57 2008 +0000
@@ -1633,6 +1633,7 @@
   Vfontset_alias_alist = Fcons (Fcons (name, alias), Vfontset_alias_alist);
   auto_fontset_alist = Fcons (Fcons (font_spec, fontset), auto_fontset_alist);
   FONTSET_ASCII (fontset) = font_name;
+  font_spec = Fcopy_font_spec (font_spec);
   ASET (font_spec, FONT_FOUNDRY_INDEX, Qnil);
   ASET (font_spec, FONT_ADSTYLE_INDEX, Qnil);
   for (i = FONT_WEIGHT_INDEX; i < FONT_EXTRA_INDEX; i++)