diff options
Diffstat (limited to 'src/print.c')
| -rw-r--r-- | src/print.c | 17 |
1 files changed, 11 insertions, 6 deletions
diff --git a/src/print.c b/src/print.c index 5c95aeb9a20..940ec7312bf 100644 --- a/src/print.c +++ b/src/print.c @@ -1913,12 +1913,17 @@ print_vectorlike (Lisp_Object obj, Lisp_Object printcharfun, bool escapeflag, print_c_string ("#<font-entity", printcharfun); for (int i = 0; i < FONT_SPEC_MAX; i++) { - printchar (' ', printcharfun); - 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); + /* FONT_EXTRA_INDEX can contain private information in + font entities which isn't safe to print. */ + if (i != FONT_EXTRA_INDEX || !FONT_ENTITY_P (obj)) + { + printchar (' ', printcharfun); + 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 |