Commit 2a7b7982 authored by Kenichi Handa's avatar Kenichi Handa

Include font.h.

(print_object): Handle font-related objects.
parent f85064bd
......@@ -36,6 +36,7 @@ Boston, MA 02110-1301, USA. */
#include "intervals.h"
#include "blockinput.h"
#include "termhooks.h" /* For struct terminal. */
#include "font.h"
Lisp_Object Vstandard_output, Qstandard_output;
......@@ -2129,6 +2130,34 @@ print_object (obj, printcharfun, escapeflag)
strout (buf, -1, -1, printcharfun, 0);
PRINTCHAR ('>');
}
else if (FONTP (obj))
{
EMACS_INT i;
if (! FONT_OBJECT_P (obj))
{
if (FONT_SPEC_P (obj))
strout ("#<font-spec", -1, -1, printcharfun, 0);
else
strout ("#<font-entity", -1, -1, printcharfun, 0);
for (i = 0; i < FONT_SPEC_MAX; i++)
{
PRINTCHAR (' ');
if (i < FONT_WEIGHT_INDEX || i > FONT_WIDTH_INDEX)
print_object (AREF (obj, i), printcharfun, escapeflag);
else
print_object (font_style_symbolic (obj, i, 0),
printcharfun, escapeflag);
}
}
else
{
strout ("#<font-object ", -1, -1, printcharfun, 0);
print_object (AREF (obj, FONT_NAME_INDEX), printcharfun,
escapeflag);
}
PRINTCHAR ('>');
}
else
{
EMACS_INT size = XVECTOR (obj)->size;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment