mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-07 04:10:27 -08:00
Code Issues Projects Releases Wiki Activity

* font.c (font_get_spec): Remove; unused.

Browse source
This commit is contained in:
Paul Eggert 2011-03-16 01:22:49 -07:00
parent 7b81e2d023
commit ea838e10ea
2 changed files with 1 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/ChangeLog
View file

@ -4,6 +4,7 @@
pointers to constants.
(font_parse_fcname): Remove unused vars.
(font_delete_unmatched): Now static.
(font_get_spec): Remove; unused.
* fns.c (require_nesting_list, require_unwind): Now static.
(Ffillarray): Rename locals to avoid shadowing.

16
src/font.c
View file

@ -2949,22 +2949,6 @@ font_get_name (Lisp_Object font_object)
}
/* Return the specification of FONT_OBJECT. */
Lisp_Object
font_get_spec (Lisp_Object font_object)
{
Lisp_Object spec = font_make_spec ();
int i;
for (i = 0; i < FONT_SIZE_INDEX; i++)
ASET (spec, i, AREF (font_object, i));
ASET (spec, FONT_SIZE_INDEX,
make_number (XFONT_OBJECT (font_object)->pixel_size));
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. */