From ea838e10ea8a3e390b2d9160e02c4a5e08714850 Mon Sep 17 00:00:00 2001 From: Paul Eggert Date: Wed, 16 Mar 2011 01:22:49 -0700 Subject: [PATCH] * font.c (font_get_spec): Remove; unused. --- src/ChangeLog | 1 + src/font.c | 16 ---------------- 2 files changed, 1 insertion(+), 16 deletions(-) diff --git a/src/ChangeLog b/src/ChangeLog index 63e23749374..1b707c4b463 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -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. diff --git a/src/font.c b/src/font.c index 25e2968df7f..ed3b3aeefc5 100644 --- a/src/font.c +++ b/src/font.c @@ -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. */ -- 2.39.2