mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-30 08:09:04 +00:00
Code Issues Releases Activity

(FONTP): Make it return 1 also for a font-object.

Browse Source
This commit is contained in:
Kenichi Handa 2008-01-28 07:06:52 +00:00
parent 9e067dbc98
commit 23c8bcbfce
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/font.h
View File

@ -212,14 +212,16 @@ struct font_bitmap
/* Predicates to check various font-related objects. */
#define FONTP(x) \
(VECTORP (x) && (ASIZE (x) == FONT_SPEC_MAX || ASIZE (x) == FONT_ENTITY_MAX))
#define FONT_SPEC_P(x) \
(VECTORP (x) && ASIZE (x) == FONT_SPEC_MAX)
#define FONT_ENTITY_P(x) \
(VECTORP (x) && ASIZE (x) == FONT_ENTITY_MAX)
#define FONT_OBJECT_P(x) \
(XTYPE (x) == Lisp_Misc && XMISCTYPE (x) == Lisp_Misc_Save_Value)
#define FONTP(x) \
((VECTORP (x) && (ASIZE (x) == FONT_SPEC_MAX \
|| ASIZE (x) == FONT_ENTITY_MAX)) \
|| FONT_OBJECT_P (x))
#define FONT_ENTITY_NOT_LOADABLE(entity) \
EQ (AREF (entity, FONT_OBJLIST_INDEX), Qt)