#endif /* HAVE_NS */
Lisp_Object Qfont_spec, Qfont_entity, Qfont_object;
-
+
#ifdef HAVE_NS
extern Lisp_Object Qfontsize;
#endif
font_assert (((i >> 4) & 0xF) < ASIZE (table));
elt = AREF (table, ((i >> 4) & 0xF));
font_assert ((i & 0xF) + 1 < ASIZE (elt));
- return (for_face ? AREF (elt, 1) : AREF (elt, (i & 0xF) + 1));
+ return (for_face ? AREF (elt, 1) : AREF (elt, (i & 0xF) + 1));
}
extern Lisp_Object Vface_alternative_font_family_alist;
`:name'
VALUE must be a string of XLFD-style or fontconfig-style font name.
-usage: (font-spec ARGS ...)
`:script'
VALUE must be a symbol representing a script that the font must
-support. */)
+support.
+usage: (font-spec ARGS...) */)
(nargs, args)
int nargs;
Lisp_Object *args;
struct font *font;
Lisp_Object font_object, n, glyph;
int i, j, from, to;
-
+
if (! composition_gstring_p (gstring))
signal_error ("Invalid glyph-string: ", gstring);
if (! NILP (LGSTRING_ID (gstring)))
}
if (i == 3 || XINT (n) == 0)
return Qnil;
-
+
glyph = LGSTRING_GLYPH (gstring, 0);
from = LGLYPH_FROM (glyph);
to = LGLYPH_TO (glyph);
ASET (Vfont_log_deferred, 0, build_string (action));
ASET (Vfont_log_deferred, 1, arg);
ASET (Vfont_log_deferred, 2, result);
-}
+}
extern void syms_of_ftfont P_ (());
extern void syms_of_xfont P_ (());