procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(font_spec_from_name): Return Qnil if font name could not be parsed.

Browse source 
(font_parse_name): Treat a `?' character as part of an XLFD.
This commit is contained in:
Chong Yidong 2009-01-19 16:42:44 +00:00
parent 21bdb81a75
commit 05802645c6
1 changed files with 11 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
src/font.c
View file

@ -1814,7 +1814,7 @@ font_parse_name (name, font)
char *name;
Lisp_Object font;
{
if (name[0] == '-' || index (name, '*'))
if (name[0] == '-' || index (name, '*') || index (name, '?'))
return font_parse_xlfd (name, font);
return font_parse_fcname (name, font);
}
@ -3051,15 +3051,21 @@ font_get_spec (font_object)
return spec;
}
/* Create a new font spec from FONT_NAME, and return it. If FONT_NAME
could not be parsed by font_parse_name, return Qnil. */
Lisp_Object
font_spec_from_name (font_name)
Lisp_Object font_name;
{
Lisp_Object args[2];
Lisp_Object spec = Ffont_spec (0, NULL);
args[0] = QCname;
args[1] = font_name;
return Ffont_spec (2, args);
CHECK_STRING (font_name);
if (font_parse_name ((char *) SDATA (font_name), spec) == -1)
return Qnil;
font_put_extra (spec, QCname, font_name);
return spec;
}