Mercurial > emacs

comparison src/fontset.c @ 96087:b6d5b82f877f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(fontset_from_font): Copy font_spec before changing the elements.
author Kenichi Handa <handa@m17n.org>
date Fri, 20 Jun 2008 06:11:57 +0000
parents b52fa52cd0fa
children 37737408d4f2
comparison
equal deleted inserted replaced
96086:5962deb66a42 96087:b6d5b82f877f
1631 Vfontset_alias_alist); 1631 Vfontset_alias_alist);
1632 alias = Fdowncase (AREF (font_object, FONT_NAME_INDEX)); 1632 alias = Fdowncase (AREF (font_object, FONT_NAME_INDEX));
1633 Vfontset_alias_alist = Fcons (Fcons (name, alias), Vfontset_alias_alist); 1633 Vfontset_alias_alist = Fcons (Fcons (name, alias), Vfontset_alias_alist);
1634 auto_fontset_alist = Fcons (Fcons (font_spec, fontset), auto_fontset_alist); 1634 auto_fontset_alist = Fcons (Fcons (font_spec, fontset), auto_fontset_alist);
1635 FONTSET_ASCII (fontset) = font_name; 1635 FONTSET_ASCII (fontset) = font_name;
1636 font_spec = Fcopy_font_spec (font_spec);
1636 ASET (font_spec, FONT_FOUNDRY_INDEX, Qnil); 1637 ASET (font_spec, FONT_FOUNDRY_INDEX, Qnil);
1637 ASET (font_spec, FONT_ADSTYLE_INDEX, Qnil); 1638 ASET (font_spec, FONT_ADSTYLE_INDEX, Qnil);
1638 for (i = FONT_WEIGHT_INDEX; i < FONT_EXTRA_INDEX; i++) 1639 for (i = FONT_WEIGHT_INDEX; i < FONT_EXTRA_INDEX; i++)
1639 ASET (font_spec, i, Qnil); 1640 ASET (font_spec, i, Qnil);
1640 Fset_fontset_font (name, Qlatin, font_spec, Qnil, Qnil); 1641 Fset_fontset_font (name, Qlatin, font_spec, Qnil, Qnil);