Mercurial > emacs
changeset 90095:5948e3220233
(Fset_fontset_font): Check family element of a given vector.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Sun, 30 Jan 2005 11:42:04 +0000 |
parents | b965d05e584e |
children | 5c77b525b4ad |
files | src/fontset.c |
diffstat | 1 files changed, 2 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/src/fontset.c Sun Jan 30 11:39:15 2005 +0000 +++ b/src/fontset.c Sun Jan 30 11:42:04 2005 +0000 @@ -1441,11 +1441,10 @@ CHECK_STRING (AREF (font_spec, j)); ASET (font_spec, j, Fdowncase (AREF (font_spec, j))); } + family = AREF (font_spec, FONT_SPEC_FAMILY_INDEX); /* REGISTRY should not be omitted. */ CHECK_STRING (AREF (font_spec, FONT_SPEC_REGISTRY_INDEX)); - registry = Fdowncase (AREF (font_spec, FONT_SPEC_REGISTRY_INDEX)); - ASET (font_spec, FONT_SPEC_REGISTRY_INDEX, registry); - + registry = AREF (font_spec, FONT_SPEC_REGISTRY_INDEX); } else if (CONSP (font_spec)) {