diff options
| author | Paul Eggert <[email protected]> | 2011-03-16 01:22:49 -0700 |
|---|---|---|
| committer | Paul Eggert <[email protected]> | 2011-03-16 01:22:49 -0700 |
| commit | ea838e10ea8a3e390b2d9160e02c4a5e08714850 (patch) | |
| tree | 68c3830da3db7052501ede1ec9a67d05220565b1 /src | |
| parent | 7b81e2d023093bf21cf867ec42ffff3ee7114cf5 (diff) | |
* font.c (font_get_spec): Remove; unused.
Diffstat (limited to 'src')
| -rw-r--r-- | src/ChangeLog | 1 | ||||
| -rw-r--r-- | src/font.c | 16 |
2 files changed, 1 insertions, 16 deletions
diff --git a/src/ChangeLog b/src/ChangeLog index 63e2374937..1b707c4b46 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 25e2968df7..ed3b3aeefc 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. */ |