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:
parent
eb5a079fee
commit
cd1f02e1e3
1 changed files with 14 additions and 2 deletions
16
src/print.c
16
src/print.c
|
|
@ -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;
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue