pestctrl/emacs
1
0
Fork 0
forked from Github/emacs
Code Issues Pull requests Projects Releases Packages Wiki Activity

One more place with ":..." in C strings

Browse source 
* src/font.c (font_unparse_fcname): Use LISP_SYMBOL_NAME.
(font_filter_properties): Use LISP_SYMBOL_NAME.
This commit is contained in:
Gerd Möllmann 2022-10-23 09:40:44 +02:00
parent b7b18f4768
commit a63b04582c
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/font.c
View file

@ -1721,8 +1721,8 @@ font_unparse_fcname (Lisp_Object font, int pixel_size, char *name, int nbytes)
if (! NILP (AREF (font, FONT_FOUNDRY_INDEX)))
{
int len = snprintf (p, lim - p, ":foundry=%s",
SSDATA (SYMBOL_NAME (AREF (font,
FONT_FOUNDRY_INDEX))));
SSDATA (LISP_SYMBOL_NAME (AREF (font,
FONT_FOUNDRY_INDEX))));
if (! (0 <= len && len < lim - p))
return -1;
p += len;
@ -1731,7 +1731,7 @@ font_unparse_fcname (Lisp_Object font, int pixel_size, char *name, int nbytes)
if (! NILP (styles[i]))
{
int len = snprintf (p, lim - p, ":%s=%s", style_names[i],
SSDATA (SYMBOL_NAME (styles[i])));
SSDATA (LISP_SYMBOL_NAME (styles[i])));
if (! (0 <= len && len < lim - p))
return -1;
p += len;
@ -3517,7 +3517,7 @@ font_filter_properties (Lisp_Object font,
{
Lisp_Object key = XCAR (XCAR (it));
Lisp_Object val = XCDR (XCAR (it));
char *keystr = SSDATA (SYMBOL_NAME (key));
char *keystr = SSDATA (LISP_SYMBOL_NAME (key));
if (strcmp (boolean_properties[i], keystr) == 0)
{
@ -3542,7 +3542,7 @@ font_filter_properties (Lisp_Object font,
{
Lisp_Object key = XCAR (XCAR (it));
Lisp_Object val = XCDR (XCAR (it));
char *keystr = SSDATA (SYMBOL_NAME (key));
char *keystr = SSDATA (LISP_SYMBOL_NAME (key));
if (strcmp (non_boolean_properties[i], keystr) == 0)
Ffont_put (font, key, val);
}