1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-09 13:10:57 -08:00

Make xwidgets print nicer

* src/print.c (print_vectorlike): Print xwidgets with ID and widget
pointer, and print xwidget views separately.
This commit is contained in:
Po Lu 2021-11-06 13:58:52 +08:00 committed by Lars Ingebrigtsen
parent eb5a079fee
commit cd1f02e1e3

View file

@ -1521,8 +1521,20 @@ print_vectorlike (Lisp_Object obj, Lisp_Object printcharfun, bool escapeflag,
printchar ('>', printcharfun);
break;
case PVEC_XWIDGET: case PVEC_XWIDGET_VIEW:
print_c_string ("#<xwidget ", printcharfun);
case PVEC_XWIDGET:
#ifdef HAVE_XWIDGETS
{
int len = sprintf (buf, "#<xwidget %u %p>",
XXWIDGET (obj)->xwidget_id,
XXWIDGET (obj)->widget_osr);
strout (buf, len, len, printcharfun);
break;
}
#else
emacs_abort ();
#endif
case PVEC_XWIDGET_VIEW:
print_c_string ("#<xwidget view", printcharfun);
printchar ('>', printcharfun);
break;